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INTRODUCTION 


USING THE COMMODORE 64 IN THE HOME offers 20 exciting, 
original, and easy-to-use programs which can be entered into the Commo¬ 
dore 64 computer directly through the keyboard, without any extra disk or 
cassette equipment. 

These programs cover the whole range of home uses for the Commo¬ 
dore 64: there are programs for financial management, such as checkbook 
balancers, family budget managers, and loan calculators. There are nutri¬ 
tion planning programs, data management programs which (with storage 
media) will let you throw away all of your index cards and file cabinets, 
and educational programs which will catapult your family to the top of 
their class. There’s even an astrology program to entertain friends with, 
and help you see the future. 

And there are games! Ten unique, captivating, amazing games which 
make use of the astonishing graphics and sound capabilities of the Com¬ 
modore 64 computer. You can create your own ecological simulation, 
supervising a whole animal world where only the hardy survive. You can 
defend a kingdom, travel the outer reaches of space, track down a deadly 
arsonist, create alien forms of life, and pilot your own plane with a real 
flight simulator. There are magic mazes to thread your way through, and a 
program which will teach you more about the sound synthesizing capabili¬ 
ties of the Commodore 64 than you ever thought possible. 

And, USING THE COMMODORE 64 IN THE HOME is a highly ef¬ 
fective learning-by-using user’s guide. Each of the 20 programs is com¬ 
plete with a simple, but extensive, discussion of the programming tech¬ 
niques which went into making up the program. Most BASIC commands 
are used. By the time you have reviewed and run each program you will be 
familiar with them. Major concepts are explained, and interesting twists 
which make especial use of the Commodore 64’s unique design are de¬ 
scribed. All the means are there so that you can modify or elaborate upon 
the listings to make your own original games. 

USING THE COMMODORE 64 IN THE HOME is a long step 
towards fulfilling for you the promise offered by the new, exciting world 
of home computing. 




COMMODORE 64 
IN THE STUDY 




1. Nutrition Pack 


The importance of good nutrition is generally recognized. This program 
aids in calculating the calories, proteins and fats in your daily diet. A list of 
fifty foods is provided from which you can select your daily menu. At the 
end of your menu selection, a summary of the total number of calories, 
the total grams of protein and the total grams of fats are displayed. 

The program illustrates the use of data arrays, subroutines and display 
formatting. 

An important technique demonstrated in this program is the utilization 
of arrays. Four arrays are used to contain the nutritional information for 
each food list. Once a food is chosen, the calorie, protein, and fat contents 
are stored as individual values. When the user has finished selecting his 
menu, the total number of calories, grams of protein, and grams of fat are 
computed and displayed. The array presented consists of fifty different 
foods which are listed in data statements. The list of foods may be changed 
to include personal favorites. 


TIPS AND TECHNIQUES 

• Line 10 clears the screen and prints the heading at a tab of 15 spaces. 

• Line 20: The dimension statement sets aside room for four arrays, each 
consisting of fifty pieces of data. Array variable F$(N) is used for stor¬ 
ing the name of the food; notice the $ symbol denoting that it is a string 
variable containing alpha characters. Array variable C(N) contains in¬ 
formation about the caloric content of the respective food. Array vari¬ 
able P(N) contains information about the protein content, and array 
variable T(N) contains the fat content. 

• Lines 30-50: This FOR-NEXT loop reads the elements contained in the 
data statements in lines 500-990 into the four arrays. 

• Line 60 sets up values for a loop, which will display array elements 1 to 

20 . 

• Line 70 executes the display subroutine beginning at line 300. (To be ex¬ 
plained.) 

• Line 80 sets up parameters to display elements 21 through 40. 

• Line 100 sets up parameters to display elements 41 through 50. 
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Line 105: This loop is designed to print 12 blank lines and so begin the 
display midscreen. 

Lines 120-150 display the total number of calories, grams of protein, 
and fat in the selection. 

Lines 300-380 make up the subroutine that displays a portion of the 
food array, formats the information into columns, and prompts the 
user for a food selection. 

Line 300 prints textual column headlines. 

Line 310 sets up a loop which displays an index number N; the food 
names F$(N); the caloric content C(N); the protein content in grams, 
P(N); and the fat content in grams, T(N). The array elements to be 
displayed are determined by the values of A and B, obtained in lines 60, 
80, 100. A and B define the beginning and outer limits of the array. 

Line 320 prints the individual element. Notice the way in which the data 
is arranged in columns. The TAB statement sets up the columns. The 
index used in the TAB starts counting from the left side of the screen, so 
TAB (5) is 5 spaces from the left screen edge. 

Line 350 prompts the user to select the number of the food desired. If 
no selection is desired a zero is entered, in which case the program leaves 
the subroutine and returns to the line following the call. (Line 80, 100, 
or 120.) If the value of N is not equal to zero, line 360 is executed next. 

Line 360: This line includes three totalizing counters. Counter C for 
calorie content, counter P for protein content, and counter T for fat 
content. The expression C = C + C(N) means the new value of C equals 
the old value of C plus the value of C(N), the calories for the food 
chosen. 

Line 370 prompts the user, and if more foods are desired the program 
branches to line 300 and displays the same block of data. If no more 
selections are desired then line 380 is executed. 

Line 380: This line is the exit point for the subroutine. Every subroutine 
must have a return point. The return points in this program are lines 80, 
100, and 120. 

Lines 500-990 are the data statements which consist of the food name 
and three numbers representing the calorie, protein, and fat content. 
Notice that a precise format must be followed. Each item in the data 
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statement must be separated from the next by a comma. You may 
substitute your own food preferences and their calorie, protein, and fat 
contents by replacing the ones provided. If you wish to include more 
than fifty foods, you need to change the DIM statement in line 20, and 
the value of B in line 100. Also change the limit of Q in line 105 to 
display more lines. 


VARIABLES USED: 

A: Beginning value of element display value. 

B: Outer value of element display value. 

C(N): Calorie array element. 

F$(N): Food string array element. 

1$: Selection reply. 

N: Array element index. 

P(N): Protein array element. 

Q: Counter for screen display position. 

T(N): Fat array element. 


PROGRAM LISTING 


10 PR I NT CHR* < 147 ) TAB < 15 ) " NUTRITI ON PACK " 

20 DIM Ft < 50);C <50) , P<50) , T <. 50) 

30 FOR N-l TO 50 

40 READ Ft<N>,C <N ),P <N ),T <N ) 

50 NEXT N 
60 A-l : B®£0 
70 GOSUB 300 
80 fl*21 ; B«40 
90 GOSUB 300 
100 A-41:B-50 

105 FOR Q-l TO 12:PRINT-NEXT q 
110 GOSUB 300 

120 PRINT CHRt<147)"VOUR FOOD ENERGV AND NUTRIENTS" 

130 PRINT"TOTAL CALORIES*";C 
140 PRINT"TOTAL PROTEIN<GRAMS)-"JP 
150 PRINT"TOTAL FAT<GRAMS)-"JT 
160 END 

300 PRINT" # F00B CAL PRO FAT" 

310 FOR N-A TO B 

320 PR I NT NTAB < 5 ) ; Ft < N > ; TAB < 25 ) ; C < N); TAB < 31) ; P < N ) j TAB < 35 ) j T < N ) 

330 NEXT N 
340 PRINT 

350 INPUT"VOUR SELECTION #<0 FOR NO SELECTION)"; N=IF N-0 THEN RETURN 
360 C-C+CCN) ■•P-P+P<N) : T-T+T<N) 

370 PRINT:INPUT"MORE SELECTIONSCV/N)"jIt•IF It-"V" THEN GOTO 300 
380 RETURN 

500 BATA APPLE-RAW,80,0,1 

510 BATA BACON-2 SLICES,585,4,S 

520 BATA BANANA,100,1,0 
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530 

DATA 

540 

DATA 

550 

DATA 

560 

DATA 

570 

DATA 

580 

DATA 

530 

DATA 

600 

DATA 

610 

DATA 

620 

DATA 

630 

DATA 

640 

DATA 

650 

DATA 

660 

DATA 

670 

DATA 

680 

DATA 

630 

DATA 

700 

DATA 

710 

DATA 

720 

DATA 

730 

DATA 

740 

DATA 

730 

DATA 

760 

DATA 

770 

DATA 

780 

DATA 

730 

DATA 

800 

DATA 

810 

DATA 

820 

DATA 

830 

DATA 

840 

DATA 

850 

DATA 

860 

DATA 

870 

DATA 

880 

DATA 

830 

DATA 

300 

DATA 

310 

DATA 

320 

DATA 

330 

DATA 

340 

DATA 

350 

DATA 

360 

DATA 

370 

DATA 

380 

DATA 

330 

DATA 


BEANS-RED 1 CUP,230,13,1 
BEEF-HAMBURGER 3 02,235,20,1 
BEEF-SIRLOIN 3 02,330,20,27 
BEEF STEW 1 CUP,220,16,11 
BRERD-RVE 1 SLICE,60,2,0 
BREAD-WHITE ,70,2,1 
BUTTER-1 TBSP,100,0,12 
CflKE-SPONGE SLICE,1 S3,5,4 
CANTALOUPE-1/2,80,2,0 
CARROT-1 RAW,30,1,0 
CATSUP 1 TBSP,15,0,0 
CHEESE-SWISS 1 OZ,105,8,8 
CHICKEN-BROIL 3 02,115,20,3 
CORN-1 ERR,70,2,1 
CORN FLAKES 1 CUP,95,2,0 
CRRCKERS-4 SALTINES,50, 1, 1 
DOUGHNUT 1 PLfiIN,100,1,5 
EGG-1 COOKED,80,6,6 
EGG-OMELET,85,6,7 
FRANKFURTER,170,7,15 
FRUIT COCKTAIL-CUP,135,1,0 
ORAPEFRUIT-1-/2 RAW, 43, 1,0 
ICE CREAM-1 CUP,270,5,14 
MACARONI-1 CUP,153,5,1 
MRRGARINE-1 TBSP,100,0, 12 
MAVONNAISE-1 TBSP,100,0,11 
MILK-SKIM 1 CUP,85,8,0 
OATMEAL-1 CUP,130,5,2 
0IL-SALAD 1 TBSP,120,0,14 
ORANGE-1 MEDIUM,65,1,0 
ORANGE JUICE 1 CUP,110,2,0 
OYSTERS RAW -1 CUP,160,20,4 
PANCAKE WHEAT-1,60,2,2 
PEANIJTBUTTER-1 TBSP, 35,4,8 
PIE-APPLE 4 IN WEDGE,345,3, 1 
PI22A-CHEESE SLICE,145,6,4 
POTATOES-BAKED 1,145,4,0 
POTATO CHI PS-10,115,1,8 
RICE-WHITE 1 CUP,225,4,0 
SALAD DRESS-FRENCH,65,0,6 
SALMON-CAN 3 02,120,17,5 
SARDINES-3 02,175,20,3 
SPAGHETTI-1 CUP,155,5,1 
SUGAR-1 TEASPOON,13,0,0 
TOMATO JIJI CE-1 CUP, 45,2,0 
TUNA FISH-3 02,170,24,7 
YOGURT-LOFAT PLAIN,145,12,4 







2. Family Budget Comptroller 


If you are having difficulty determining where your family income is going 
and would like to better monitor family expenditures, this program will 
provide you with an opportunity to analyze your expenses. The program 
has provisions for 15 predefined expense categories. You enter your allo¬ 
cation into each category. You also enter your total income for the period. 
The program will then return your final balance. It will also display your 
total expenses and warn you if your balance is in the red. 

This program illustrates the use of subscripted variables, and display 
formatting of tabular data. You are also introduced to the LEN, length, 
and STR$, string, functions. 


TIPS AND TECHNIQUES 

• Line 10 clears the screen and presents the program title. 

• Line 20: This line sets up room for two arrays. Array N will hold fifteen 
elements. They are the amounts spent in each category. Array N$ is also 
composed of fifteen elements. They are the fifteen categories. Since 
they contain alphabetic information the string symbol, $, is used. 

• Line 30 prompts the user for the total income. 

• Lines 40-180 contain 15 categories of expenses. You may change the 
categories if you wish. 

• Line 200 prompts the user to enter expenses. 

• Lines 210-250 set up a FOR-NEXT loop, which prints the expense 
headings, and prompts the user to input the amounts budgeted. Notice 
the use of the subscripted variable N(C), which holds the amount of the 
item N$(C). 

• Lines 260-280: This FOR-NEXT loop sums the expenses using variable 
T. After all 15 categories have been summed the total of the expenses is 
obtained. 

• Line 290: This line solves for the balance B. 

• Line 300 clears the screen. 
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• Line 310 prints the total income which was assigned to variable I in line 
30. 

• Lines 330-360 set up a FOR-NEXT loop which displays a summary of 
the expenses. 

• Line 350 formats the display of the screen. At column 10 on the screen 
the category name is displayed, the cursor moves to the right side of the 
screen to display the amounts. The variable X is the amount budgeted 
for a particular item. In order to align all the numbers in a column, the 
following technique is used: you convert the number X into a string var¬ 
iable using the STR$ function. You can now determine how many char¬ 
acters that numerical answer consists of. This helps determine in which 
column to print the number so that the display aligns and looks neat. 
The string function LEN determines how many digits are in the answer. 
By subtracting 38 from this number you tab the cursor the resultant 
number of spaces and print the value of X. This process is repeated 15 
times for each category. 

• Line 370 prints the sum of the expenses. 

• Line 380 prints the final balance. 

• Line 390: If the balance equals zero or is less than zero, you are advised 
to start saving. 


VARIABLES USED: 

B: Amount of balance. 

C: Index in a FOR-NEXT loop. 

I: Total income. 

J: Index in a FOR-Next loop. 

N: Subscripted variable storing the amounts. 

N$: Subscripted variables storing category names. 
T: Sum of expenses. 

X: Used for TAB position. 
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PROGRAM LISTING 

10 PRINT CHR*C 147> , "FRMILV BUDGET RNflLVSIS" 

20 DIM N C 15 } .. N* < 15 > 

30 PRINT INPUT "TOTAL INCOME C PER WEEK/OR PER MONTH> I 

40 N*a FOOD: " 

50 N* < 2 > « " RENT/MORTGAGE : " 

60 N#C3> ®"MEDICAL : " 

70 N*<4> = "INSURANCE 1 " 

80 N*<5>-"TAXES’" 

90 N* C 6 > - "EDUCAT' I ON : " 

100 N* C 7* " AUTOMOEILE C GAS/REP AIR ) : " 

110 N# C S* " HEAT COIL /GAS > '■ " 

120 N*C9> = "ELECTRICI TV:" 

130 N* C10 >*"TELEPHONE:" 

140 N# <11 > 38 " CLOTH I NO : " 

150 N* < 12>-"ALLOWANCES : " 

160 N*C13>■"MAINTENANCECHOME>•" 

170 N*C14 >*"ENTERTAINMENT : " 

180 N*<15>-"OTHERS:" 

130 PRINT 

200 PRINT"ENTER EXPENSES FOR THE FOLLOWING ITEMS 1 " 

210 FOR C~1 TO 15 

220 PRINT 

230 PRINT N*CC> 

240 INPUT "AMOUNT»*" ; N<C> 

250 NEXT C 
260 FOR C*1 TO 15 
270 T-T+NCO 
280 NEXT C 
230 B»I-T 

300 PRINT CHR*<147> 

310 PR I NT " TOTAL I NCOME 55 " ; I 
320 PRINT:PRINT"EXPENSES*" 

330 FOR J«1 TO 15 
340 X=N C ..T ') 

350 PR I NT TAB C 10 > N* C J > ; TAB C 38-LEN C STR* C X > > > ; X 
360 NEXT J 

370 PRI NT:PRINT"TOTAL EXPENSES-*" ; T 

380 PRINT"BALANCE*#";B 

330 IF BOO THEN PR I NT "START SAVING!" 





3. Shakespeare! 


This program gives you an opportunity to review your knowledge of the 
parts of speech while creating amusing rhymes. After you have typed in 
the parts of speech requested by the program, a somewhat familiar rhyme 
is generated. There are five different rhyme modules, any one of which 
will be randomly selected by the program. This program introduces ran¬ 
dom numbers and string variables. 

You may wish to review these definitions: 

Noun: a word denoting a person, place or thing. 

Verb: a word denoting action. 

Adjective: a word describing a noun. 


TIPS AND TECHNIQUES 

• Lines 20-40: These lines display the opening prompt describing the pro¬ 
gram. 

• Line 50 generates a random number between 1 and 5. Since the random 
function RND generates a value between 0 and 1, you multiply it by 5, 
take the integer part of the answer with the INT function, and add 1 to 
the final answer. This technique assures you of generating a random 
number between the lower limit of 1 and some upper limit. In this case 
the upper limit is 5. 

• Line 60: This line, depending on the value of N (the random number), 
picks the rhyme to be displayed. If N = 1 the program branches to line 
100; if N = 2 the program branches to line 200; and if N = 5 the program 
branches to line 500. 

• Lines 100-150 prompt the user for the parts of speech. Notice that since 
you are entering non-numerical information, each input is accepted as a 
string variable. 

• Line 160 sends the program to line 600. In lines 600-630 the composed 
rhyme is generated. It is built from the string variables that were entered 
earlier. 

• Lines 200-260 request the parts of speech required for the second 
rhyme. 
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• Line 270 starts the generation of the second rhyme by branching to line 
650. 

• Lines 300-370 request the parts of speech for the third rhyme. 

• Line 380 starts the generation of the third rhyme by branching to line 
700. 

• Lines 400-450 request the parts of speech for the fourth rhyme. 

• Line 460 starts the generation of the fourth rhyme by branching to line 
760. 

• Lines 500-560 request the parts of speech for the fifth rhyme. 

• Line 570 starts the generation of the fifth rhyme by branching to line 
810. 

• Lines 600-630: These lines display the first rhyme. 

• Line 640 sends the program to a routine beginning at line 900. 

• Line 900 asks if the user wishes to run the program again. 

• Line 910: If the reply is yes, the program branches to line 50 which 
generates a new random number. 

• Lines 650-680: These lines display the second rhyme. 

• Lines 700-740: These lines display the third rhyme. 

• Lines 760-790: These lines display the fourth rhyme. 

• Lines 810-840: These lines display the fifth rhyme. 

VARIABLES USED: 

Each variable is a string variable storing user input. 
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PROGRAM LISTING 

10 PRINT CHR*<147>, "F’OETRV GENERATOR" : PRINT 

20 INPUT"WHAT IS VQUR NAME ";fit=PRINT 

30 PRINT"DEAR "A*" WE ARE GOING TO GENERATE " 

40 PRINT"POETRV BUT I WILL NEED VOUR HELP-SO GIVE ME : 
50 N*INT <5# <RND <1)30 + 1 
60 0N N G0TO 100,200,300, 400.. 500 
100 INPUT"A GIRLS NAME";B* 

110 INPUT"A NOUN";C* 

120 INPUT "A FOOD'OD* 

130 INPUT"A NOUN THAT RHVMES WITH 'DflV'";E* 

140 INPUT"A NOUN";F* 

150 INPUT"A PREPOSITION";G* 

160 GOTO 600 

200 I NPUT "A NflME'OH* 

210 INPUT"AN ADJECTIVE";I* 

220 INPUT"AN ANIMAL";J# 

230 INPUT"A NOUN'OK* 

240 INPUT"A COLOR";L* 

250 INPUT"A NOUN";M* 

260 I NPUT "A VERB THAT RHVMES WITH -"SNOW ' " ; H* 

270 GOTO 650 

300 INPUT"A NUMBER";Of 

310 INPUT"AN ADJECTIVE";P* 

320 INPUT"AN ANIMAL <PLURAL>";Q* 

330 INPUT"A VERB"JR* 

340 INPUT"A NOUN";St 
350 INPUT"PLURAL NOUN";T* 

360 INPUT"A NOUN";U* 

370 INPUT"AN ADJECTIVE";V* 

330 GOTO 700 

400 INPUT"AN ADJECTIVE";W$ 

410 INPUT"A BOVS NAME";X* 

420 INPUT"AN ADJECTIVE";V* 

430 INPUT"A NOUN";2* 

440 INPUT"A NOUN";AA* 

450 INPUT"A NOUN";AB* 

460 GOTO 760 

500 INPUT"A BOVS NAME";AC* 

510 INPUT"A GIRLS NAME";AD* 

520 INPUT"A NOUN";AE* 

530 INPUT"A CONTAINER NAME";AFT 
540 INPUT"A LIQUID";AG* 

550 INPUT"A NOUN";AH* 

560 INPUT"A VERB";AI* 

570 GOTO 810 

600 PRINT CHR*<147>•PRINT"LITTLE MISS "B*" SAT ON A "C 
610 PR INT"EATINO HER "D*" AND "E*"." 

620 PRINT"ALONG CAME A "Ft" AND SAT DOWN "G*" HER" 

630 PR I NT"AND FRIGHTENED MISS "B*" AWAV-" 

640 GOTO 300 

650 PRINT CHR*(147> =PRINT H*" HAD A "I*" "J*"." 

660 PRINT"ITS "K*" WAS "Lf" AS SNOW." 

670 PRI NT"AND EVERVWHERE THAT "H*" WENT" 

680 PR I NT"HER "M*" WAS SURE TO "N*"." 

630 GOTO 300 

700 PRINT CHR*<147>:PRINT Of" "P*" "Q*". SEE HOW THEV 
710 PRI NT"THEV ALL RAN AFTER THE FARMER'S "S*"," 


: PRINT 


:*" , 


"Rf" ! " 
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720 F'R I NT "WHO CUT OFF THEIR "Tl" WITH fl CARVING "I IJ*"." 

730 PRI NT"DID VOU EVER SEE SUCH fl SIGHT IN VOUR LIFE" 

740 PR I NT" FIS "Of" "V$" "Of"?" 

750 GOTO 900 

760 PRINT CHR#< 147PRINT W*" "Xf” SflT IN fl CORNER" 

770 PRINT"EATING HIS "Vf" PIE." 

780 PRINT"HE STUCK IN HIS "Zf" AND PULLED OUT fl "flfl* 

730 PR I NT "AND SAID, WHAT A GOOD "flBsf" AN I!" 

800 GOTO 300 

810 PRINT CHRf < 147> : PRINT ACf" AND "AD*" WENT IJP THE "flEf 
820 PRINT"TO GET fl "AFf" OF "AGf "." 

830 PRINT AC*" FELL DOWN AND BROKE HIS "AH*"," 

840 PRINT"AND "AD*" CAME "AI*;"ING AFTER." 

300 PRINT : PRINT : INPUT"WANT TO TRY ANOTHER ONE<Y/NA.Jf 
310 IF AJ*="V" THEN GOTO 50 
320 PR INT"HAVE fl NICE DRV" 



4. Commodore 
Checkbook Keeper 

The woes of checkbook balancing have long plagued many of us. If you 
find you are often faced with this frustrating problem, consider turning to 
this program for help. A summary of your checkbook transactions total¬ 
ing all deposits, all outstanding checks and all checks made is presented. A 
final balance is displayed and the user is warned if the balance dips below 
zero. The program is user friendly; all user inputs are prompted. In fact, 
this program is self-contained and no other calculating devices are re¬ 
quired. The program is written with simple statements at each line, instead 
of multiple statements per line, thus facilitating analysis of program 
development. 

The program illustrates the following programming techniques: 
branching, menu displays, summation with variables, subroutines, and 
the use of inequalities. 


TIPS AND TECHNIQUES 

• Line 10 clears the screen and displays the program title. 

• Line 20: The PRINT statement alone prints a blank line on the display. 
This is done to create a more readable and visually pleasing display. 

• Lines 30-40 instruct the user on selecting one of the options available. 

• Lines 60-140 display the five options that are available to the user. 

• Line 160 prompts the user to enter the option number. 

• Line 170: This line checks to see if the user’s reply is in the range of 1 to 
5. This line reads as follows: If the value of N is greater than 5 or if the 
value of N is less than 1, then print the following message “ENTER 
CORRECT NUMBER.” If either of the conditions is met the program 
returns to line 160. If neither condition is met the program advances to 
line 180. 

• Line 180: If the input is a number between 1 and 5 the program reaches 
this line, which sends the program to one of five different routines de¬ 
pending on the number entered. If N = 1 the program branches to line 
300; if N = 2 it branches to line 350 and if N = 5 it branches to line 500. 
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• Line 300: This is the module which accepts data regarding deposits. The 
program immediately branches to a subroutine at line 700 which will be 
considered shortly. 

• Line 310 prompts the user to enter data regarding deposits. 

• Line 320: The amounts of the deposits are summed to variable S. As 
each new deposit is entered into variable D, it is added to S. In this 
manner a summation of variable D is performed. This simulates calcu¬ 
lator addition. 

• Line 330 sends the program back to line 300, which then sends the pro¬ 
gram to a subroutine at line 700. Let’s examine what the subroutine at 
line 700 does. 

The subroutine consists of line 700 to 770. 

• Line 700 tells the user how to enter new data. 

• Line 710 tells the user how to see the menu again. 

• Line 740 accepts the user’s choice as variable Z$, which is a string var¬ 
iable since the answer consists of letters. 

• Line 750: If the user chooses to enter more data, the program returns 
from the subroutine; the return point is the line following the GOSUB 
instruction. 

• Line 760: If the user chooses to see the menu, the screen is cleared. 

• Line 770: The program branches back to line 20. 

Let us review the routine at line 300. If we want to enter more data for 

“DEPOSITS” for example, the subroutine at line 700 sends the program 

back to line 310. At line 330 if we want to continue entering data, the pro¬ 
gram again goes to line 300. 

• Lines 350-380 follow a format similar to the above in summing the 
checks made. 

• Lines 400-430 sum the outstanding checks. 

• Lines 450-480 sum the service charges. 

• Lines 500-620 print the summation for each category. 
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• Line 630 calculates the balance. It is computed by adding the balance to 
the deposits and subtracting the value of the checks written and the 
amount of outstanding checks in addition to subtracting the total ser¬ 
vice charge. 

• Line 660 prints the balance. 

• Line 670 alerts the user if the balance is less than zero. 

• Line 680 ends the program. This line is necessary to prevent the pro¬ 
gram from running into the subroutine starting at line 700, in which 
case the computer would display an error message. 


VARIABLES USED: 


B: Balance in the checking account. 
C: Value of check. 

D: Amount of deposits. 

E: Total amount for service charges. 
G: Amount of outstanding checks. 

N: Option choice. 

R: Total value of outstanding checks. 
S: Total amount deposited. 

T: Total value of checks written. 

V: Amount of service charge. 

Z$: User response to question. 


PROGRAM LISTING 


10 PRINT CHR*<147>,"CHECKBOOK MANAGER" 

£0 PRINT 

30 PRINT"SELECT V0UR OPTION BV TYPING" 

40 PRINT"THE CORRESPONDING NUMBER" 

50 PRINT 

60 PRINT"l: DEPOSITS MADE" 

70 PRINT 

80 PRINT"2 : CHECKS MADE" 

90 PRINT 

100 PR INT"3: OUTSTANDING CHECKS" 

110 PRINT 

120 PRINT" 4- SERVICE CHARGES" 

130 PRINT 

140 PRINT"5 : END PROGRAM-SEE TOTAL SUMMARY" 

150 PRINT 

160 INPUT "YOUR OPTION NUMBER IS^MN 

170 IF <N>5> OR <N<1> THEN PRINT"ENTER CORRECT NUMBER:!" : GOTO 160 
180 ON N GOTO 300.-350,400.. 450,500 
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300 GOSUB 708 

310 INPUT " BEF'OS I TS- " ; B 

326 S-S+D 

330 GOTO 300 

350 GOSUB 700 

360 INPUT "CHECKS MADEMC 

370 T-T+C 

380 GOTO 350 

400 GOSUB 700 

410 INPUT"OUTSTRNDING CHECKS" ; G 
420 R-R+G 
430 GOTO 400 
450 GOSUB 700 

460 INPUT"SEPVICE CHRRGES";V 

470 E-E+V 

480 GOTO 450 

500 PRINT CHR*<147> 

510 INPUT"BRLRNCE RT START-";B 

520 PRINT CHR*<147>,"CHECKBOOK SUMMARY" 

530 PRINT 

540 PRINT"STRRTING BALANCE-*";B 
550 PRINT 

560 PRINT"TOTAL DEPOSITS-*";S 
570 PRINT 

580 PRINT"TOTAL OF ALL CHECKS MADE-*";T 
590 PRINT 

600 PRINT"TOTAL OF OUTSTANDING CHECKS-*";R 
610 PRINT 

620 PRINT"TOTAL SERVICE CHARGES-*" ;E 
630 B-B+S-T+R-E 
640 PRINT 
650 PRINT 

660 PRINT"BALANCE-*";B 

670 IF B<0 THEN PRINT"VOU ARE IN THE RED-START SAVING! 
680 END 
700 PRINT 

710 PRINT"TYPE 'E' TO ENTER NEW DATA" 

720 PRINT 

730 PRINT"TYPE "Q" TO SEE MENU AGAIN" 

735 PRINT 

740 INPUT"YOUR OPTION<E OR Q>";Z* 

750 IF Z*-"E" THEN RETURN 
760 PRINT CHR* < 147> 

770 GOTO 20 




5. The Fortune Teller 


What is your sign? 

Here is a program you can have fun with at your next party. You select a 
number from the display menu corresponding to your birthdate. Your as¬ 
trological sign and personality characteristics are displayed. The program 
is easy to use. All input is prompted and the results are fun to interpret. 

This program introduces two dimensional arrays, READ-DATA state¬ 
ments, and nested FOR-NEXT loops. 


TIPS AND TECHNIQUES 

The program utilizes two arrays. One array stores the signs of the zodiac 
and the other array stores six dominant characteristics for each sign. Dif¬ 
ferent traits are given for males and females. Once the number corre¬ 
sponding to your birthdate is selected, all retrieved data is indexed to that 
number. Array M$ is a two dimensional array. It stores 6 male characteris¬ 
tics for each sign of the zodiac, and 6 female characteristics for each sign 
of the zodiac. In total this array holds 24x6 = 144 pieces of information. 
We shall see how the correct data is retrieved. 

• Line 10 sets up the M and K arrays. Since they store alphabetic data the 
string symbol $ is used with the array name. 

• Lines 20-130 display the months and corresponding number. 

• Line 170 checks to see if the number entered is greater than 12. If it is 
you are reminded that you can only select the numbers 1-12. 

• Line 200 prompts the user to indicate his sex. 

• Line 210 sends the program to subroutines reading the male 
characteristics into an array and then displaying the information. 

• Line 220 sends the program to subroutines reading the female 
characteristics into an array and then displaying the information. 

• Line 240: Another error trapping routine. If your reply to line 200 is 
neither an M or an F the program returns to line 200. 

• Lines 300-450: This subroutine reads the signs of the zodiac into array 
K$. 
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Lines 300-320: This FOR-NEXT loop reads the 12 astrological signs 
and stores this information in array K$. 

Lines 330-440 are the data statements containing the 12 signs of the 
zodiac. 

Line 450 ends the subroutine. 

Lines 500-540: This nested FOR-NEXT loop reads into an array the 24 
categories with 6 characteristics in each category. These are the male 
and female attributes for each sign. 

Line 520: Notice the subscripts for array MS. They are variable I which 
goes from 1 to 6. We first read the I = 1 value for the values of J = 1 to 6. 
This means that we first read all elements in line 550. Next 1 = 2 and 
again we read 6 elements. These would be in line 560, and so forth. 


Lines 530-540: Notice the order of the next element to be read. After 6 
elements are read into the array the next I element is read. 

Lines 550-890 are data statements with the information for the at¬ 
tribute array. Notice that the attributes are separated by commas. 

Line 900: The return statement ends the subroutine and returns the pro¬ 
gram to line 210 or 220. 

Line 910: Using the value of N (from line 160) your sign is printed from 
array K$(N). 

Lines 920-940 print the traits attributed to the birthdate indicated for 
males. These are from the data elements in lines 500-670. 

Line 950 ends the program after 6 male attributes have been displayed. 

Lines 960-980 print the traits attributed to the birthdate indicated for 
females. The data statements in lines 750-780 provide this information. 
Notice in line 980 that the first subscript in the M$ matrix is N + 12, 
which corresponds to elements 13 to 24 in the data matrix. 

Line 1000 ends the program after six female attributes have been 
printed. 
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VARIABLES USED: 


A$: User reponse indicating sex. 

I: Index for position in attribution matrix. 

J: Index for attribute. 

K: Sign array index. 

K$: Sign array. 

M$: A two dimensional array. 

N: Birth date index. 


PROGRAM LISTING 


10 DIM M$<246> .< K $< 12 > 

15 PRINT CHR*<147),"SIGNS OF THE SODIRC” : PRINT 
20 PRINT" 1 = 21 MARCH TO 1.9 APRIL" 

30 PRINT"2 : 20 APRIL TO 20 MRV" 

40 PRINT"3 : 21 MRV TO 20 JUNE" 

50 PRINT"4 : 21 JUNE TO 22 JULV" 

60 PRI NT"5 : 23 JULV TO 22 AUGUST" 

70 PRINT"6 ■ 23 AUGUST TO 22 SEPTEMBER" 

80 PRINT"? : 23 SEPTEMBER TO 22 OCTOBER" 

90 PRI NT"8 : 23 OCTOBER TO 21 NOVEMBER" 

100 PRINT"9 : 22 NOVEMBER TO 21 DECEMBER" 

110 PRINT"10= 22 DECEMBER TO 19 JANURRV" 

120 PRINT"It: 20 JRNUARV TO 18 FEBRUARV" 

130 PRINT"12: is FEBRUARV TO 20 MARCH" 

140 PRINT:PRINT"ENTER THE NUMBER CORRESPONDING TO" 
150 PRINT" VO UR BIRTH DATE <1-12V 
160 INPUT "#=";N 

170 IF N>12 THEN PRINT"ENTER <1-12> ONLV":GOTO 160 
180 PRINT:PRINT"OBTAIN SIGNS OF THE ZODIAC FOR:" 
190 PRINT"A MALE,OR A FEMALE" 

200 INPUT"TVPE : M OR F "A$ 

210 IF R$="M" THEN GO SUB 300 : GOSUB 5O0 : GOTO .910 
220 IF AT="F" THEN GOSUB 300:GOSUB 500:GOTO 960 
240 PRINT"VOU MUST BE ONE OF THE ABOVE":GOTO 200 
3O0 FOR K-* 1 TO 12 
310 READ K*<K> 

320 NEXT K 

330 DATA ARIES- THE RAM 

340 DATA TflURUS-THE BULL 

350 DATA GEMINI-THE TWINS 

360 DATA CANCER-THE CRAB 

370 DATA LEO-THE LION 

380 DATA VIRGO-THE VIRGIN 

390 DATA LIBRA-THE SCALES 

400 DATA SCORPIO-THE SCORPION 

410 DATA SAGITTARIUS-THE ARCHER 

420 DATA CAPRICORN-THE GOAT 

430 DATA AQUARIUS-THE WATER CARRIER 

440 DATA PISCES-THE FISH 

450 RETURN 

50G FOR 1*1 TO 24 

510 FOR J«1 TO 6 

520 READ M*a, J> 
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530 NEXT 
540 NEXT 
550 DATA 
560 BATA 
570 DRTR 
575 DRTR 
588 DRTR 
580 DRTR 
610 DRTR 
630 DRTR 
630 DRTR 
635 DRTR 
640 DRTR 
645 DRTR 
650 DRTR 
660 DRTR 
665 DRTR 
6~0 DRTR 
750 DRTR 
755 DRTR 
760 DRTR 
~70 DRTR 
780 DRTR 
785 DRTR 
730 DRTR 
800 DRTR 
810 DRTR 
820 DRTR 
825 DRTR 
830 DRTR 
840 DRTR 
850 DRTR 
860 DRTR 
870 DRTR 


J 

I 

FRITHFIJL, I DEAL I ST IC, POSSESS IVE, JERLOUS, DEMAND I NO, SENT I MENTAL 
STRONG, CONSIDERATE,WANTS SECURITV,LOVES HOME,LOVRL,ROMRNTIC 
UNFREDI STABLE,IMRGINATIVE,ROTIVE,LACK OF PATIENCE,WITTV 
TALKER 

LOVRL,FICKLE,ARTI8TIC,GOOD FATHER,LOVES HOME,ORGANIZER 
DOMINfiNT,JEALOUS,FLIRTS,LOVRL,AFFECTIONRTE, GENEROUS 
LOVRL,DECENT,UNDEMONSTRATIVE,POSSESSIVE, STRICT,PRECISE 
LIKES SECURI TV,COURTEOUS,OBL10I NO,SOCIABLE, I DEALISTIC,LRZV 
ENERGETIC,SELF-INDULGENT,RECKLESS,IMRGINATIVE,SUBTLE 
SECRETIVE 

OPT IMI ST IC, I DEAL. I ST IC, INTELLI CENT, NOT JERLOUS, HONEST 
OPEN MINDED 

CAREFUL,SERIOUS,CONGOIENTIOUS,AMDIT10U3, RELIABLE,GOOD LEADER 
ECCENTRIC, FR I ENBL.V, SVMFRTHETIC, I DEAL I ST IC, ALOOF 
CONSTANTLV ANALVZINO 

SVMPATHETIC,KIND,SENSITIVE,RECEPTIVE,MOODV, A DREAMER 
INDEPENDENT,OPTIMISTIC,I DEALIST IC,SENTI MENTAL,LOVRL 
A CAREER WOMAN 

STEADFAST,LOVRL,EASVOOI NO,WARM HEART,EMOTIONAL,BEAUTV 
FICKLE,CHARM,A THINKER,GOOD IMAOINATION,LIVELV,MOODV 
MOTHERLV,PROTECTIVE, IMAOINATIVE,SENSITIVE, MOODV 
GOOD AT SAVING 

POPULAR,GOOD LOOKING,LIKES FINE CLOTHES, INTELLIGENT 
GOOD SENSE OF HUMOR,INDEPENDENT 

PRACT ICAL,LOVINO,ORDERLV,EFFICIENT,LOVRL, ART ISTIC 
INTELLECTUAL,WITTV,CHARMINO,SENTIMENTAL, AFFECTIONRTE 
WORK ALONE 

POSSESSIVE,LOVRL,AFFECTIONATE,LOOKS FOR A STRONG PARTNER 
BURNS WITH JEALOUSV,KEEPS A CLEAN HOME 

CHEERFUL, OPT IMI ST IC, HAF'PV GO UJCKV, FR IENDL V, HONEST, CONFI DENT 
SENSIBLE,DETERMINED,CLEVER,SUPERIOR,AMDITIOUS,GOOD WIFE 
PCISED, FA I THFIJL, A GOOD HOSTESS, HELPS FR I ENDS 


875 DATA WILL NOT BE TIED DOWN 
880 DATA WORK WHEN MARRIED 

830 DATA WITTV,PRETTV,FEMININE,SECRET IVE,DECEFTIVE, DREAMV 
300 RETURN 


3 10 PR INT CHR*<147 >=PRINT K* <N >,"<MALE TRAITS>": PR INT 

320 FOR J»1 TO 6 

830 PRINT m <N,J >:PRINT 

340 NEXT J 

350 END 

360 PRINT CHR*<147):PRINT K*< N>,"<FEMALE TRAITS>"•PRINT 

370 FOR J=.t TO 6 

380 PRINT m <N+12,J >:PRINT 

330 NEXT J 

1000 END 





6. Money Manager 


In dealing with today’s turbulent economic picture, it is important to take 
advantage of all possible aids and advice. Money Manager can help you by 
providing you with the means of analyzing possible investments. It will 
help you with such matters as calculating the future value of an investment 
given the present value, calculating the length of time to invest and the 
length of time it will take for an investment to double. 

This program consists of four options. Each option can serve as a 
separate module. The options are: 

Option 1: Find the future value of an investment, for example, given 
$4000.00 invested at 8% compounded annually for 10 years, this option 
will calculate the future value. 

Option 2: Calculates the amount you must invest today in order to accrue 
a certain amount by a future date. For example it will calculate the amount 
to be invested today at 9% compounded annually in order to accrue 
$10,000 in 10 years. 

Option 3: Calculates the amount of interest paid during the investment 
period and will find what the compound interest is on $10,000 for 2 years 
if interest is 8% and compounded annually. 

Option 4: Solves for the time required for an investment. For ex¬ 
ample—how long does it take $5000.00 to double if it is invested at 10% 
annual interest compounded annually? One caution should be observed 
when dealing with financial calculations. The time periods and interest 
rates should be in consistent time units. The above examples are all for an¬ 
nual compounding of interest. However, if you wish, say, to compound 
quarterly at an 8% annual interest rate then the interest, or I, would be 8/4 
for each quarter. 

The program is self-prompting and each module can stand alone. The 
program illustrates the use of subroutines where repeated text is displayed. 


TIPS AND TECHNIQUES 

• Line 10 clears the screen. 

• Lines 30-120 display the options available. 
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Line 150 prompts the user to select the desired option. 

Line 160 checks to see if the user made an incorrect choice. If the num¬ 
ber selected is greater than 4, the user is reminded to select a number 
from 1 to 4. Line 150 prompts the user again. 

Line 170: When a number in the range of 1 to 4 is selected, a branch to 
the corresponding module takes place. If module # 1 is chosen A = 1 and 
the program branches to line 300. If module #4 is chosen A = 4 and the 
program branches to line 600. 

Line 190 asks the user if more calculations are desired. 

Line 200: If the answer is a Y for yes, the program returns to line 10, and 
the menu is displayed again. 

Line 210: If the response is an N, the program ends. Notice the END 
statement. It is essential here so that the program will not execute subse¬ 
quent lines which are subroutines. 

Lines 300-380 comprise the first module. 

Line 310 displays the title. 

Line 320 branches to a subroutine at line 800. 

Line 800 accepts the value for P and returns the program to line 330. 

Line 330 sends the program to a subroutine at line 820. 

Line 820 accepts the value for I and converts the value of I into a percen¬ 
tage and then returns the program to line 340. 

Line 340 sends the program to another subroutine at line 830. 

Line 830 accepts the value for N and returns the program to line 350. 

Line 350 solves the equation for the future value. 

Line 360 calls for a subroutine beginning at line 900 to round the answer 
to two decimal places. 

Lines 900-930 contains a subroutine to round the answer to two places. 
This is essential in order to display the cents part of the calculated value 
to two places. 



22 USING THE COMMODORE 64 IN THE HOME 


• Line 370 displays the answer rounded to two decimal places. 

• Line 380 branches back to line 180. 

• Lines 400-480 comprise the second option. 

• Lines 500-580 perform the calculations for the third option. 

• Lines 600-690 perform the calculations for the fourth option. 

Notice that all the modules follow the same format. By studying the first 
module you should by able to trace the remaining modules. 


VARIABLES USED: 


A: The selection choice, also the integer part of the answer. 
A$: Used to ask the user if more options are desired. 

C: The fractional part of the answer rounded to two places. 
D: Totals the integer and the decimal part of the calculations. 
F: Future value. 

I: Interest value. 

K: Dummy variable. Used to pass values. 

N: Investment time value. 

P: Present value. 

Q: Counter for display. 

T: Total interest value. 


PROGRAM LISTING 


10 PRINT CHR*<147>:PRINT 

20 : PRINT TREK 15)"MONEV MAKER" : PRINT 

30 PRI NT"OPTION #1" 

40 PRINT"FIND THE FUTURE VALUE OF AN INVESTMENT" 

50 PRINT 

60 PRINT"OPTION #2" 

70 PRINT"FIND THE AMOUNT TO INVEST NOW" 

80 PRINT 

30 PRINT"OPTION #3" 

100 PR INT"FIND THE T0TRL INTEREST PR ID" 

110 PRINT- 

120 PRINT"OPTION #4" 

130 PRINT"FIND THE TINE DURATION OF AN INVESTMENT" 
140 PRINT : PRINT 

150 INPUT"SELECT V0UR OPTION <1~4>";R 

160 IF A>4 THEN PRINT"ENTER OPTION #<1-4)" : GOTO 150 

170 ON R GOTO 300,400,500,600 

180 FOR Q-l TO 4 : PRINT ; NEXT Q 
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190 INPUT"ANY MORE CALCULATIONS <V/N)";A* 

200 IF A*-"V" THEN GOTO 10 
210 END 

300 PRI NT CHR*<147 )=PRINT 

310 PRINT"FIND FUTURE VALUE" : PRINT 

320 GOSUB 800 

330 GOSUB 820 

340 GOSUB 830 

350 F-P#a + I)tN 

360 K-F:GOSUB 900 : F-D 

370 PRINT:PRINT"FUTURE VALUE**";F 

380 GOTO 180 

400 PRINT CHR*<147>:PRINT 

410 PRI NT"FIND PRESENT VALUE" : PRINT 

420 GOSUB 810 

430 GOSUB 820 

440 GOSUB 830 

450 P-F#K1 + I) t-N 

460 K*p:GOSUB 900:P-D 

470 PRINT■PRINT"PRESENT VALUE-*";P 

480 GOTO 180 

500 PRINT CHR*<147):PRINT 

510 PRINT"FIND TOTAL INTEREST" : PRINT 

520 GOSUB 800 

530 GOSUB 820 

540 GOSUB 830 

550 T-P*<<1+1)TN-1) 

560 K-T '■ GOSUB 900 : T-D 

570 PRINT: PRINT" INTEREST PfllD-*";T 

580 GOTO 180 

600 PRINT CHR*<147)-PRINT 

610 PRINT"FIND TIME DURATION OF AN INVESTMENT"’■ PRINT 

620 GOSUB 800 

630 GOSUB 810 

640 GOSUB 820 

650 N-LOG< F/P>/LOG <1 +1> 

660 PRINT"<UNITS ARE CONSISTENT WITH INTEREST RATE TINE UNITS) 
670 K-N:GOSUB 900 : N-D 
680 FRINT"TIME-";N 
690 GOTO 180 

800 PR I NT ’■ INPUT " PRESENT VALUE-* " J P : RETURN 

610 PR I NT '• I NPUT " FUTURE VALUE-* " ; F • RETURN 

820 PRINT=INPUT"INTEREST »"; I : I-■01*I:RETURN 

830 PRINT:INPUT"INPUT TIME-";N=RETURN 

900 A-INTCK):B-K-A 

910 C-INT<B*100+-5>/100 

920 B-fl+C 

930 RETURN 



7. Your Math Teacher 


Are you or any members of your family having difficulty with arithmetic? 
This program helps you practice and improve your arithmetic skills. You 
may elect to practice addition, subtraction, multiplication, or division, or 
concentrate on a specific multiplication table. In order to accomodate dif¬ 
ferent ability levels the user can select the highest integer desired and the 
number of questions to be presented. If the questions are answered cor¬ 
rectly the program offers positive reinforcement. If the answer is incor¬ 
rect, the correct answer is shown. At the end of the quiz the number of 
problems correctly answered is displayed. 

The program consists of five modules and a number of subroutines. 
Each option can serve as an independent module. The random number 
function is used to generate the digits for each problem. The INT integer 
function is also introduced. 

The instructions for running the program can easily be followed since 
all options are menu driven and use prompts. 


TIPS AND TECHNIQUES 

• Lines 20-60 present the study options that are available. 

• Line 70 prompts the user to enter the option desired. 

• Line 80: This line checks to see if a number greater than 5 is selected. If 
so, the user is reminded to select only values from 1 to 5; the program 
jumps back to line 70 to once again offer options 1 through 5. This tech¬ 
nique is used to trap for an inappropriate response. 

• Line 90: This line causes the program to branch to the selected module. 
If N = 1 then the program goes to line 200; if N = 2 the program goes to 
line 300; and if N = 5 the program goes to line 800. The first four 
modules have a similar structure—to be examined briefly. 

• Lines 200-280 comprise the addition problem generator. 

• Line 200 clears the screen and clears all variables so each time a new 
module is chosen the counters are reset to 0. 

• Line 210 sends the program to a subroutine beginning at line 700 in 
which the user is prompted for the highest number desired. 
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In line 710 the user is asked for the number of problems desired. The 
RETURN instruction ends the subroutine and brings the program back 
to line 220. 

Line 220 sends the program to another subroutine beginning at line 720. 
The subroutine at line 720 generates two random numbers, X and Y. 
The built in RND(X) function generates a random number in the range 
of 0-1. In the expression for generating X, the resultant number gets 
multiplied by the upper limit H. The integer value of the results is ob¬ 
tained by using the INT function. And finally, 1 is added to the result to 
insure that a number between 1 and the chosen upper limit is obtained. 
A similar approach is used to obtain a value for Y. 

Line 230 prints an addition expression using the values of X and Y. 

Line 240: This line prompts the user for the answer. The answer is as¬ 
signed to variable A. The actual computed answer is assigned to 
variable Z. 

Line 250 looks for a match between A and Z. If they match, the reponse 
entered is correct. The correct answer counter, C is incremented; the 
problem counter, P is incremented. The program then branches to line 
270. 

Line 260: If the answer is incorrect the screen displays the correct 
answer and the problem counter is incremented. 

Line 270 decides if the desired number of questions has been asked. 
(Remember the variable R, from line 710?) Variable R is matched 
against the problem counter P. If they match it means that all questions 
have been asked, and the number of correct answers is displayed. The 
program then branches to another subroutine at line 740. This subrou¬ 
tine asks the user if more questions are desired. If the answer is yes, the 
screen displays the program options again. If the answer is no, the pro¬ 
gram ends by executing the END statement at line 270. 

Line 280: If all the questions have not been answered, the program 
branches back to line 220 and generates the next question. 

Line 330 generates the subtraction equation. 

Lines 400-480 generate the multiplication problems, again following 
the same logic used in the first module. 
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• Lines 500-610: These lines generate the division problems. A difficulty 
faced when dealing with division questions is if the numerator and the 
denominator are not integer values, the answer may consist of a frac¬ 
tional part with many digits. In order to insure whole number quo¬ 
tients, the program deals with this possibility in line 550. 

• Lines 550-570 break the solution into a quotient part Q, and into a re¬ 
mainder part D. 

• Line 550: Variable Z is the integer part of the quotient X/Z. Variable M 
is the remainder part. 

• Line 580: Only if the integer part and the remainder part are correct, is 
the answer considered correct. 

• Lines 800-860 generate the multiplication table. 

• Line 820 starts a loop where factors of the table start at 1 through 10. 

• Line 830:D is the result of the multiplication. 

• Line 860 branches to subroutine 740. 


VARIABLES USED: 

A: Your answer. 

C: Correct answer counter. 

D: Remainder of division module. 

H: Highest number desired in study module. 

M: Multiplier value. 

N: Study option number. 

P: Problem counter. 

Q: Quotient in division module. 

R: Number of problems to study. 

X: First variable in generated problem. 

Y: Second variable in generated problem. 

Z: Integer value in division module, also actual computed answer. 
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PROGRAM LISTING 


10 PRINT CHRt< 147) , "MATH TEACHER" 

20 PRINT"OPTION #1 ADDITION" 

30 PRINT"OPTI ON #2 SUBTRACTION" 

40 PRINT"OPTION #3 MULTIPLICATION" 

50 PRINT"OPTION #4 DIVISION" 

60 PRINT"OPTION #5 MULTIPLICATION TABLES" 

70 PRINT : PR INT:INPUT"PICK VGUR STUDV OPTION #";N 

30 IF N>5 THEN PRINT"PICK ONLV":QOTO 70 

30 ON N GOTO 200.300.-400,500,800 

200 PRINT CHR$<147 >,"ADDITI ON PRACTICE":CLR 

210 GOSUB 700 

220 GOSUB 720 

230 PR I NT : PR I NT X ; " + " ; V; " -? " : PR I NT- 
240 INPUT"VOUR ANSWER-"jA : Z-X+V 

250 IF A-Z THEN PR I NT" CORRECT " : C-C+l : P-P+l '• GOTO 270 
260 PR I NT " WRONG-THE CORRECT ANSWER® " ; Z • P-P+ .1. 

270 IF R«P THEN PRINT"VOU GOT "C;" OUT OF R:GOSUB 740:END 
230 GOTO 220 

300 PRINT CHR*<147>,"SUBTRACTION PRACTICE":CLR 

310 GOSUB 700 

320 GOSUB 720 

330 PRINT:PRINTX:"-";V;"-?"•PRINT 
340 INPUT"VOUR ANSWER®";A : Z-X- 1 V 

350 IF A-Z THEN PRINT"CORRECT" : C-C+l : P-P+l : GOTO 370 

360 PRINT"WRONG-THE CORRECT ANSWER®";Z : P-P+l 

370 IF R-P THEN PRINT"VOU GOT "C;" OUT OF R:GOSUB 740 : END 

380 GOTO 320 

400 PR I NT CHR* < 147 > , " MULT I PL I CAT I ON PRACT I CE " '• CLR 
410 GOSUB 700 

420 GOSUB 720 

430 PR I NT : PR I NT X; " * " ; V; "»? " : PR I NT- 
440 I NPUT" VOUR ANSWER®"A : Z-X* 1 V 

450 IF A-Z THEN PRINT"CORRECT":C-C+l : P-P+l : GOTO 470 

460 PR INT"WRONG-THE CORRECT ANSWER®"IZ : P-P+1 

470 IF R-P THEN PRINT"VOIJ GOT "C.: " OUT OF "; R ■ GOSUB 740 = END 

490 GOTO 420 

500 PRI NT CHR* <147>,"DIVISION PRACTICE":CLR 

510 GOSUB 700 

520 GOSUB 720 

525 IF XCV THEN GOTO 520 

530 PR I NT : PR I NT X : " / " V : " ® ? " : PR I NT 

540 PRINT"ENTER THE QUOTIENT(WHOLE NUMBER RESULT> AND THE REMAINDER" 

550 Z-1 NT < X/V > •• M-X-Z*V 

560 PRINT:INPUT"QUOTIENT®";Q 

570 PR I NT : I NPUT " REMAINDER- " D 

580 IF Q-Z AND D®M THEN PR INT"CORRECT" : C-C+l : P-P+l : GOTO 600 
590 PR I NT " WRONG-THE QUOT I ENT® " Z : PR I NT " REMA INDER® " ; M ' P-P+1 
600 IF R-P THEN PRINT"VOU GOT "C" OUT OF " J R ■ GOSUB 740 : END 
610 GOTO 520 

700 INPUT"HIGHEST NUMBER TO STUDV®",H 

710 INPUT"HOW MANV PROBLEMS DO VOU WANT";R : RETURN 

720 X®INT< H*RND<1>> + l :V-1NT< H*RND<1>> +1 

730 RETURN 

740 PRINT : INPUT"WANT TO STUDV MORE<V/N>";AT 

750 IF Air®"V" THEN GOTO 10 

760 PRINT-PRI NT"HAVE A NICE DAV" 

770 RETURN 
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800 PR I NT CHR# < 147 , " MULT I PL I CRT I ON TABLES " '• CLR 
810 INPUT "MULTIPLIER TO STUJjVMM 
820 FOR T-l TO 10 
830 D«T#M 

848 PRINT T;" * "M.:" *"; B : PR I NT 
850 NEXT T 
860 GOSUB 740 




8. Loan Payment Primer 


Occasionally you may find it necessary to borrow money. “Paying 
Loans’’ can help you analyze and calculate the factors involved in obtain¬ 
ing a bank loan. You will be able to calculate the most economical way to 
borrow money. Questions facing you might be: Can I move out of the city 
and buy a house in the suburbs at these high interest rates? Can I buy a 
new car? If so what will my monthly payment be? 

This program offers three options with these features: Option #1 Com¬ 
putes the payment to be made on a loan. For example, you just bought a 
new car. What will the monthly payments be if you wish to pay off a loan 
of $8000 in 36 months? The interest rate is 13% annually. 

Option #2: Computes the principal on a loan. For example you are willing 
to pay only $100 per month for 36 months for a used car. The annual in¬ 
terest rate is 13%. What is the principal that you must borrow? 

Option #3: Computes the number of pay periods. For example: How 
many monthly payments of $150 will have to be made to pay off a loan of 
$4000 at the annual interest rate of 15%. 

All options use prompts and are easy to follow. 

One caution must be observed. When performing financial calculations 
all the parameters must be in the same time units. If you are trying to find 
the monthly payments on a loan made at an annual interest rate of 18%, 
“I” must be represented as the monthly interest rate or as 18%/12 or 
1.5%. 

This program illustrates the use of subroutines for text prompts used in 
many parts of the program. The program also introduces a routine for 
rounding off numbers to two decimal places. 


TIPS AND TECHNIQUES 

• Line 10 clears the screen. 

• Lines 30-100 display the 3 available options. 

• Line 120 prompts the user to select an option number. 

• Line 130 checks if the user entered an option number that is illegal. If 
the number is greater than 3, the program branches back to line 120. 
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• Line 140 is a computed GOTO instruction. If the user selects option #1, 
then W = 1 and the program branches to line 200. If W = 2 it branches 
to line 300 and if W = 3 the program branches to line 400. 

• Line 150: This FOR-NEXT loop displays four blank lines on the screen. 
It is used to format the display more attractively. 

• Line 160 asks the user if any more calculations are desired. 

• Line 170: If the number is a “Y” for “YES”, the program branches to 
line 10 and displays the available options again. 

• Line 180: If the answer is “NO” the program ends at this line. It is im¬ 
portant to include the “END” statement here, since the following lines 
of code include subroutines which would start executing without having 
been instructed to do so. 

• Lines 200-280 compute the solution to option #1. 

• Line 240 sends the program to a subroutine beginning at line 630. This 
line, which calculates the interest as a percentage, multiplies your input 
by .01. 

• Line 250 sends the program to a subroutine at line 640 which performs 
the calculations involved in computing the principal. 

• Line 270 performs the calculations in rounding off the answer. This is 
done by a call to a subroutine at line 900. 

• Lines 300-380 perform the calculations required for option #2. 

• Lines 400-480 perform the calculations required for option # 3. 

• Lines 600-640 make up a short subroutine which prompts the user to in¬ 
put data parameters and performs the required calculations. 

• Lines 900-930 comprise a subroutine which rounds off the calculations 
to two decimal places. 

• Line 900: Variable A separates the integer part of the number. Variable 
B is the fractional part of the calculation. 

• Line 910 rounds off the fractional part to two places. This is used to 
represent the cents part of the answer. 
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• Line 920 arrives at the final answer by adding the integer part and the 
rounded off fractional part. 


VARIABLES USED: 


A$ User’s reply. 

D: Final calculated answer. 

I: Interest value. 

D: Dummy variable to hold answers 
M: Payment value. 

N: Number of pay periods. 

Q: Equation value. 

R: Principal value. 

W: Option number. 

Z: Blank line index. 


PROGRAM LISTING 


10 PRINT CHR*<147>:PRINT 

20 PR I NT TRE < 15 > " PRVI NO LOANS " : PR I NT- 

30 PRINT "OPTION 1" 

40 PRINT"COMPUTE PAYMENT TO BE MADE" 

50 PRINT 

60 PRINT"OPTION 2" 

70 PRINT"COMPUTE PRINCIPAL ON A LOAN" 

80 PRINT 

90 PRINT"OPTION 3" 

100 PRINT"COMPUTE NUMBER OF PAY PERIODS" 

110 PRINT PRINT- 

120 INPUT"SELECT YOUR OPTION <1-3>";W 

130 IF U>3 THEN PRINT"ENTER OPTION #<1-3)" : GOTO 120 

140 ON W GOTO 200,300,408 

150 FOR 2*1 TO 4 : PRINT : NEXT Z 

160 INPUT"ANY MORE CALCULATIONS <Y/N>";fi* 

170 IF A*»"Y" THEN GOTO 10 
180 END 

200 PR I NT CHR* <147 > : PR I NT- 

210 PRINT"COMPUTE THE PAYMENT TO BE MADE" : PRINT 

220 GO SUB! 600 

230 GOSUB 620 

240 GOSUB 630 

250 GOSUB 640 

260 M*R#Q 

270 K-M:GOSUB 900:M-D 

280 PRINT:PR INT"PAYMENT";M:PRINT 

290 GOTO 150 

300 PR I NT CHR* < 147 > : PR I NT- 

310 PRINT"COMPUTE PRINCIPAL ON A LOAN" : PRINT 
320 GOSUB 610 
330 GOSUB 620 
340 GOSUB 630 
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350 GOSUB 640:Q=l/Q 
360 R®M#Q 

370 K*R : GOSUB 300 '• R«D 

380 PR I NT : PR I NT " PR INCI PPL-* " R 

330 GOTO 150 

400 PR INT CHR*<147 > = PRINT 

410 PRINT"COMPUTE THE NUMBER OF PflV PERIODS" : PRINT 
420 GOSUB 600 
430 GOSUB 610 
440 GOSUB 630 

450 N—-LOG<1-1#R/M>/LOG< 1 +1 > 

460 K-N:GOSUB 300 : N*D 

470 PRINT : PRINT"# OF PflV PERIODS 8 *" * N 

480 PRINT"<UNITS ARE CONSISTENT WITH INTEREST RATE TIME UNIT 
430 GOTO 150 

600 INPUT"PRINCIPAL 3 **";R:RETURN 

610 I NPUT " PAVMENT-* " ; M '• RETURN 

620 INPUT"# OF PflV PERIODS 3 *" ; N : RETURN 

630 I NPUT " INTEREST .•-> " ; I : I *=. 01*I : RETURN 

640 Q»I/<1-<1+I>f-N>:RETURN 

300 A 3 * I NT<K> : B“K>fl 

310 C«INT <B*100+.5 >/100 

320 D^A+C 

330 RETURN 



9. Studying State Capitals 

Can you identify the capital of Washington? How about that of North 
Dakota? No? Well, this program will help you study and review the cap¬ 
itals of each of the fifty states. 

The program consists of two modules. In part one you have the oppor¬ 
tunity to study the capitals. The name of the state is briefly displayed on 
the screen along with its capital. The screen then clears and a new state and 
capital are displayed. All fifty states are covered in this manner. If you feel 
that the display is on for too long or too short a period of time, the Tips 
and Techniques part of this chapter will show you how to alter the length 
of time for each display. After you have studied the capitals and are confi¬ 
dent of your knowledge, you are ready for option number two which is the 
test mode. In the test mode a state is displayed, and you must provide the 
name of its capital. If your response is incorrect, you will be informed and 
the correct answer will be indicated. If your response is correct, it will be 
duly recognized. After each question you have the choice of continuing 
with the test or stopping. If you decide to stop, your score will be dis¬ 
played—the number of correct responses out of the number of questions 
presented. Now, see if you can get fifty out of fifty. 


TIPS AND TECHNIQUES 

An important technique used in this program is the use of two arrays to 
store fifty elements each. One array is used to store the states’ names, and 
the second stores those of the capitals. In the study mode the correspond¬ 
ing elements of each array are displayed. In the test mode the input re¬ 
sponse is checked against the corresponding capital array element. Now, 
on to see how it’s done: 

• Line 10: The “DIM” dimension statement instructs the computer to set 
aside room for fifty array elements for array S$, which stores the states’ 
names. Room is set aside for the fifty elements to be stored in array C$, 
which stores the capitals’ names. Notice that since you are dealing with 
alphabetic variables, as opposed to numerical values, you must use the 
string variable notation—the “$” symbol. 

• Line 60 asks which mode the user desires. The program looks for a re¬ 
ply, which should be either the number 1 or 2. Variable A stores the 
choice. 
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• Line 70 checks for an inappropriate response. If the reply is greater than 
2, you are informed that you have made an error and you are sent back 
to line 60 to reselect a 1 or 2. This technique is called “error trapping.” 
If the user enters an inappropriate response to a question—in this case 
anything other than the digits 1 and 2—the program returns to the ques¬ 
tion to await an acceptable response. 

• Line 80: The “ON A GOTO” statement branches to the correct seg¬ 
ment of the program, depending on the value of variable A. If A equals 
1 the program goes to line 200; if A equals 2 it goes to line 400. 

• Lines 200-270 comprise the study mode section. 

• Line 220 starts a loop for reading fifty pieces of data. 

• Line 230: In this line the data is read into the array list. This data is com¬ 
posed of the array elements in array S$(N), the states; and in array 
C$(N), the capitals. Notice that when N = 1 we read S$(l) and C$(l), 
the first elements in each array. 

• Lines 240-250: The indexed elements are displayed on the screen. 

• Line 260: This is the display time delay loop. The computer “counts” 
from 1 to 3000 before displaying the next state and capital. If you wish 
the delay to be longer you can have the computer count from 1 to 5000. 
If you wish the delay to be shorter you can have the computer count 
from 1 to 500. You can adjust the delay to your own preference by 
changing the upper limit of the count. 

• Line 270: The value of “N” is incremented and the loop permits you to 
read the next element into each array (back at line 230). 

• Lines 280-290 prompt the user for a response to a question. If you wish 
to be tested you have to type a “ Y” for yes, and if you don’t wish to be 
tested you have to type an “N” for no. 

• Line 300 accepts the reply as a string variable. 

• Line 310: If the response is a “Y” the program goes to line 400 to start 
the test module. 

• Line 320: If the reply is an “N” (for no) the program goes back to line 
200 and repeats the study mode. 

• Line 400 clears the screen for the test mode. 
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Line 420 resets the correct answer counter, C, to zero and the wrong 
answer counter, W, to zero. 

Line 430 sets up a loop to read all the elements of the states and capitals 
into the respective arrays. 

Line 450 prints the name of a state. 

Line 460 asks for the name of the matching capital, Q$. 

Line 470 checks to see if the reply matches the stored value of C$(A). If 
the answer does not match, the correct answer is displayed and the 
wrong answer counter, W, is incremented. The program then branches 
to line 490. Notice the use of multiple statements on one line. It is ad¬ 
visable to try to group all related statements on one line. 

Line 480: If the reply is correct you are so informed; the correct answer 
counter, C, is incremented. 

Line 490 accepts a response from the user as to whether he wishes to 
continue. 

Line 500: If the reply is an “N,” for no, the program goes to line 520. 

Line 510: If the reply is “Y,” for yes, the program comes to this line and 
increments the loop for the next question. 

Line 520: If you choose not to continue, this line computes the total 
number of questions that were answered as variable T. 

Line 530 prints the number of correct answers given. 

Line 540: The end of the program. Notice the “END” statement. It 
keeps the program from running into the data elements. 

Lines 600-780 are the data statements consisting of the names of states 
and capitals. They are read as pairs of elements in line 230 and in line 
440. You have to be careful when entering data elements. They must be 
entered exactly in the order they will be read (or they must be read in the 
arrangement they are entered). Any deviation will cause an erroneous 
readout of the array of elements. 
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VARIABLES USED: 

A: Mode selection (line 60), also element counter (line 430). 
C: Correct answer counter. 

D: Delay loop counter. 

N: Element counter (line 220). 

T: Total number of questions. 

W: Wrong answer counter. 

A$: Test mode replay. 

C$: Capital array. 

Q$: Capital reply. 

S$: State array. 


PROGRAM LISTING 

10 DIMS*<50>,C*<50> 

20 PRINT CHR*a47> 

30 PRINT : PRINT TABCISVSTATE CAPITALS" 

40 PR I NT : PR I NT " MODE # 1 STIJDV CAP ITALS " • PR I NT 
30 PRINT"MODE #2 TEST"-PRINT 

60 INPUT "WHICH MODE DO VOU SELECT CTVPE 1 OR 2V; A 

70 IF A>2 THEN PRINT"ERROR-TRV AGAIN"-GOTO 60 

80 ON A GOTO 20O.. 400 

200 PRINT CHR* <147 V PRINT 

210 PRINT"STUDV MODE":PRINT:PRINT 

220 FOR N=1 TO 30 

2A0 READ S*<N>,C*<N> 

240 PR I NT "STATE : "S$<N) : PRINT 

230 PRINT"CAPITAL : ";C*<N> : PRINT•PRINT : PRINT 

260 FOR D«1 TO 3000 : NEXT D 

270 NEXT N 

280 PR I NT "ARE VOIJ READV TO BE TESTED <V/N>? " 

290 PRINT" <OTHERWISE STIJDV MODE WILL BE REPEATED" 

800 INPUT A* 

310 IF A*«"V" THEN GOTO 400 
320 GOTO 200 

400 PRINT CHR*<147> PRINT 

410 PR INT"STATE CAPITALS TEST"-PRINT 

420 C*0 : W*0 

430 FOR A=1 TO 30 

440 READ St < A >,Ct < A > 

430 PRINT"STATE : ";S#<A>=PRINT 
460 INPUT "CAP ITAL : " ; Qt '■ PRINT 

470 IF Q$OC#(R) THEN PRINT"WRONG-CAPITAL IS " : Ct( A) : W*W+1 : GOTO 490 

480 C-C+l=PRINT"CORRECT!" : PRINT 

490 PR I NT : I NPUT " CONTINUE < V/N ':> " ; BT ' PRINT 

300 IF B*-"N" THEN GOTO 520 

510 NEXT A 

520 T-W+C 

330 PRINT"VOU GOT ";C;" STATES OUT OF ";T 
540 END 

600 DATA ALABAMA,MONTGOMERV, ALASKA, JUNEAU,ARIZONA,PHOENIX 

610 DATA ARKANSAS,LITTLE ROCK,CALIFORNIA,SACRAMENTO,COLORADO,DENVER 

620 DATA CONNECTICUT,HARTFORD, DELAWARE,DOVER 
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630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
^10 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 
760 DATA 
770 DATA 
780 DATA 


FLORIDA,TALLAHASSEE,GEORGIA,ATLANTA 
HAWAII,HONOLULU,IDAHO,BOISE 

ILLINOIS,SPRINOEIELD,INDIANA,IHDIANAPOLIS,IONA,DES MOINES 
KANSAS,TOPEKA,KENTUCKY,FRANKFORT,LOUISIANA, BATON ROUGE 
MAINE,AUGUSTA,MARYLAND,ANNAPOLIS,MASSACHUSETTS,BOSTON 
MICHIGAN,LANSINO,MINNESOTA,ST. PAUL,MISSISSIPPI,JACKSON 
MISSOURI,JEFFERSON CITY,MONTANA ,HELENA,NEBRASKA,LINCOLN 
NEVADA,CARSON CITY,NEW HAMPSHIRE,CONCORD, NEW JERSEY,TRENTON 
NEW MEXICO,SANTA FE,NEW YORK,ALBANY 

NORTH CAROLINA,RALEIGH,NORTH DAKOTA,BISMARCK,OHI0 ,COLUMBUS 

OKLAHOMA,OKLAHOMA CITY,OREGON,SALEM 

PENNSYLVANIA,HARRISBURG,RHODE ISLAND,PROVIBENCE 

SOUTH CAROLINA,COLUMBIA,SOUTH DAKOTA,PIERRE,TENNESSEE,NASHVILLE 
TEXAS,AUSTIN,UTAH,SALT LAKE CITY,VERMONT,MONTPELIER 
VIRGINIA,RICHMOND,WASHINOTON,OLYMPIA, WEST VIRGINIA,CHARLESTON 
WI SCONSIN,MADISON,WYOMINO,CHEYENNE 



lO. File Cabinet 


Illustrating how the disk system works, this program stores and displays a 
sequential data file. You may use the program to keep track of your book 
collection, stamp collection, stocks or any other data you may wish to 
organize and file. The program, as written, is designed to organize a per¬ 
sonal library. The file is formatted to include the author’s name, and the 
title of the book. The program is composed of two parts. 

Part One, called the “DATA FILER PROGRAM” prompts the user to 
enter the data which will be stored on the disk. The file created is named 
“DATA FILER.” 

Part Two of the program, called “SEQ. DATA FILER READER”, 
retrieves the data file that was created and sequentially displays the infor¬ 
mation on the screen. Another option offered permits you to search 
through the file for a specific author. 

This program utilizes some of the features that are explained in the disk 
User’s Manual and in the Programmer’s Reference Guide, both of which 
are available from Commodore. 


TIPS AND TECHNIQUES 

Part I: Data Filer Program 

• Line 10 prints “DATA FILER PART” on the screen. 

• Line 20 sets up two arrays each of which can hold 100 elements. Array 
variable A$ stores the author’s name and array variable B$ stores the ti¬ 
tle of the book. 

• Line 40: This statement is essential when starting to use the disk drive. It 
is used to open up the “COMMAND CHANNEL.” The command 
channel is channel #15. The device # for the disk is #8. 

• Line 45 branches to a subroutine at line 500 which is used to read the er¬ 
ror channel (more on this later). 

• Line 50 defines the variable CR$ as the code for RETURN or carriage 
return. It uses the predefined ASCII code for the RETURN function 
which is 13. 

• Line 60 opens a file using the number of the file. In our case it is file #2. 
The file name is “DATA FILER.” The S denotes that it is sequential 
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and the W denotes that we are going to write data to that file. The nota¬ 
tion @0: preceding the file name is a message to the disk operating 
system to replace any existing program using the indicated name with 
the new program. If you don’t want your old program to be deleted use 
a different name for the new file. 

Line 65 branches to the error checking subroutine. 

Line 70 prompts the user to enter the author’s name, a comma and then 
the title of the book. 

Line 80: If you wish to stop entering data the program instructs the user 
to type “QUIT.” 

Line 90 prompts the user to enter the author’s name. 

Line 95 checks to see if the input string matches the word “QUIT.” If 
so the program branches to line 150 and stops the input process. 

Line 100 permits the user to enter the title of the book. 

Line 130 The PRINT # statement instructs the computer to write the 
data onto the disk. Notice the carriage return after each set of data is 
entered. 

Line 135 branches to the error checking routine. 

Line 140: If no error exists the program branches back to line 90 to per¬ 
mit the entry of more data. 

Line 150 closes the disk file. Every file that has been opened must be 
closed when you have finished entering data. If a file is not closed the 
data will be lost. 

Lines 500-550 consist of a subroutine which reads the error channel. 
The disk operating system can detect many operational and syntax er¬ 
rors. For more information on the error codes, refer to the disk manual. 
Your 64 computer does not inform you as to the nature of the errors. 
You must use a short program to gain that information. 

Line 500: The INPUT # reads 4 variables which can inform you of the 
errors detected. EN denotes the error # (refer to the table in the disk 
manual) EM$ indicates the type of error, ET indicates the track number 
on the disk containing the error (not the movie character), and ES the 
sector number. 
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• Line 510: If the error number is zero no error exists and all is okay. The 
program returns to the line following the subroutine call. 

• Line 520: If EN is not zero, it means that an error exists. 

• Line 530 prints all the error parameters. 

• Line 540: Don’t forget to close your file, especially if you don’t wish to 
lose your data. 


VARIABLES USED: 

A$: Author’s name. 

B$: Title of the book 

EN: Error number. 
EM$: Error description 
ES: Sector number. 

ET: Track number. 


PROGRAM LISTING 

10 PRINT"DATA FILER PROGRAM" 

20 DIM A*<100>,B$<100> 

40 OPEN 13,8,15 
43 GOSUB 300 
50 CR*=CHR*a3> 

60 OPEN 2,8,2,"00 : DATA FILER,S,W" 

65 GOSUB 500 

70 PRINTiPRINT"ENTER NAME OF AUTHOR,COMMA,TITLE OF BOOK" 
80 PRI NT"ENTER 'QUIT' TO STOP" 

80 INPUT"AUTHOR'S NAME : ";R* 

95 IF At*"QUIT" THEN 150 
100 INPUT"TITLE:";B* 

130 PRINT#2,At","B*CR* 

135 GOSUB 500 
140 GOTO 30 
150 CLOSE 2 
160 END 

300 INPUT#15,EN,EM*,ET,ES 
310 IF EN«0 THEN RETURN 
520 PRINT"DISK ERROR" 

530 PRINT EN,EM*,ET,ES 
540 CLOSE 2 
550 END 
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Part II: Reading A Sequential Data File 

This part of the program retrieves the data stored in Part I. The file con¬ 
tents are displayed in a scrolling fashion on the screen. An additional op¬ 
tion permits you to search for a particular author in the file that you have 
created. This part of the program can be merged with Part I or it can re¬ 
main a separate module and be used for other sequential data retrieval ap¬ 
plications. Most of the code is similar to Part I. The error checking routine 
is the same as that in Part I. 

• Line 210 opens the file. The file name is “DATA FILER.” 

• Line 220 sends the program to the error checking routine. 

• Line 230: The “INPUT #” command is used to retrieve the data stored 
on the file. Notice that you define how the data variables are to be 
retrieved. Also notice that the comma separates each variable. 

• Line 240 sets up a “STATUS” variable—more on this later. 

• Line 250 checks for errors again. 

• Lines 255-270 print on the screen the index number, the author and the 
title of the book. 

• Line 280: This line is a delay loop used when displaying the information 
on the screen. If the display is scrolling too fast you can increase the up¬ 
per limit of the loop to 1000. 

• Line 290: If a “STATUS” value of 64 is detected then the disk operating 
system is instructed to close the file. The “STATUS (ST)” keyword is a 
system variable which detects conditions of INPUT/OUTPUT opera¬ 
tion. If a code of 64 is detected it is recognized as an “END OF FILE.” 

• Line 300: If ST is not 64 but equals zero than a bad disk status has been 
detected. 

• Lines 310-320 increment the index I, and retrieve the next piece of data 
from the disk. 

• Lines 400-420: If a bad disk status has been detected the file is closed 
and the program ends. 

• Lines 500-550 consist of the error detection subroutine which is the 
same as the routine in Part I. 
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• Lines 600-700 consist of the search routine. 

• Line 620 searches the A$(N) array for the author’s name. If it is found, 
the author and title are printed. 

• Line 630: If the author’s name is not found in the file, “NOT FOUND” 
is printed and the program ends. 

• Lines 670-690 ask if another search is desired. 


VARIABLES USED: 

A$(I): The array storing the author’s name. 
B(I): The index number. 

B$(I): The array storing the title of the book. 
D: Delay loop. 

I: Index value. 

N: Index value. 

Q$: User’s reply. 

ST: Status value. 


PROGRAM LISTING 

200 PRINT"SEQ DATA FILER READER " 

201 OPEN 15,8,15 

210 OPEN 2,8,2,"0 : BATA FILER,S,R" 

220 GOSUB 500 

230 INPUT#2,R*<I>,B*<I> , B<I> 

240 RS*ST 
250 OOSUB 500 
255 PRINT"INDEX #:"I+1 
260 PRINT"AUTHOR: 

270 PRINT"TITLE:";B*<I> 

280 PRINT: PRINT: FOR jj. i TO 500 = NEXT B 
290 IF RS«*64 THEN CLOSE 2:GOTO 600 
300 IF RSO0 THEN 400 
310 I-I+l 
320 GOTO 230 

400 PR I NT"BAD DISK STATUS ";RS 
410 CLOSE 2 
420 END 

500 INPUT#15,EN,EMf,ET, ES 
510 IF EN®0 THEN RETURN 
520 PRINT"DISK ERROR" 

530 PRINT EN,EMf;ET;ES 
540 CL0SE2 
550 END 

600 INPUT "SEARCH FOR AUTHOR : " ,' N$ 

610 FOR N-l TO 100 



FILE CABINET 43 


620 IF N*«R*<N> THEN PRINT R$<N) : PRINT B*<N>:GOTO 670 
630 NEXT N 

640 PRINT"NOT FOUND":GOTO 700 

670 PRINT:PRINT"SEARCH FOR MORE INFO<V/N)?" 

630 INPUT " (. V/N > " .! Qf 

690 IF Q*»"V" THEN GOTO 600 

700 PRINT"REMOVE VOUR DISK" 




COMMODORE 64 
IN THE PLAYROOM 



ll.Swordmaster 


Your Kingdom is being attacked by a raiding party of goblins. The Dark 
Master has given these creatures the gift of swordsmanship. The King has 
lost many a good man under the blades of these fell demons. You are the 
Kingdom’s last hope. If you fail, the Kingdom will be pillaged. 


PLAYING 

There are two methods of controlling your swordsperson. The main listing 
provides for keyboard entry of command data. If you happen to own a 
suitable joystick, you may also use that method, by altering the main 
listing as shown in listing 2. 

With either method, you have four possible moves: upward block, 
downward block, thrust, and dodge/retreat. With the keyboard as the 
controller, use the U, N, J, and H keys, respectively. When using the 
joystick controller, refer to figure 1. 

Rules are thus: You must needs kill twain of yon approaching uglies per 
round. Each round, thine enemies doth increase in performance, though. 
This means that, by the 10th round, each of the baddies can take up to 6 
hits each! 

You, however, will lose the Kingdom if your total number of hits taken 
exceeds 20 + the round number; i.e., if you are hit 26 times by the fifth 
round, you have lost. 


HELPFUL HINTS 

Your “weak” move is changed after you are hit; after each new round; or 
if you remain in engarde position. 

Due to the action of the keyboard buffer, up to 10 moves may be stored. 
This comes from hitting the keys too fast. Keep it slow, as though you 
were actually swinging a heavy sword. 


PROGRAM HIGHLIGHTS 

Lines 1 and 2 print a nice little introduction and, in an amazing bit of 
computer magic, misdirect the player while constructing the SPRITE 
graphics necessary to play the game. 

Line 10 begins the work by setting the variable V to the starting address 
of the VIC (Video Interface Chip). DP is set to 150, the value (location) of 
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the first of eight SPRITE data blocks. Next, two sprites are assigned col¬ 
ors. SPRITE 0 is used to display the player’s move, and is colored white. 
SPRITE 1, the goblin SPRITE, is colored light grey. 

Next, the random number generator is seeded. Then, in line 12, the 
computer jumps to line 600, in order to begin playing the intro theme 
music. Note that the SPRITES haven’t been formed yet. 

Lines 600-615 set up the SID chip (Sound Interface Device) to produce 
a trumpet-like sound. Lines 620-625 provide the two oscillators with note 
values, set up the duration of the note, then call the delay routine at lines 
700-710. After the fanfare sounds, the computer returns to line 20 for 
some unfinished business. Here, the SPRITES are given data blocks to 
provide the five player positions and the three goblin positions. The shape 
data are contained in the DATA lines (1000 to 1380). The REMark 
statements in between the DATA lines describe each shape. 

Line 148 turns on the sprite images. Line 149 generates the floor which 
the sprites will walk on. Line 150 updates the round counter whenever two 
enemies are killed. Line 156 gets a random number which determines the 
players weakest move; up block, down block, thrust, or dodge. If the 
enemy thrusts when you are in this position, he will score a hit. The 
number chosen here refers to one of the four data blocks for the player 
sprite. 

Lines 160-171 determine the goblin’s move. Line 165 also moves the 
goblin forward whenever he thrusts. Line 175 displays the goblin at the 
location held in CX. If the goblin sprite is too close to the player sprite, line 
180 moves the goblin backwards. 

If the player does not choose a movement, the sprite will remain in the 
“engarde” position. If the goblin thrusts during this time, line 181 causes 
the scoring of a hit against the player. Lines 185-210 decode the player in¬ 
put into sprite movement. Line 200 advances the player whenever 
“thrust” is chosen. Line 211 displays the sprite at the location held in PX. 

Lines 215-217 determine which side scores a hit. Lines 222-224 deter¬ 
mine when the two swords clash, and jump to the “clang” routine at 
500-530. After this, the program jumps back to line 160. 
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PROGRAM LISTING 


1 P r i ntchrt < 14); " MffllCTiMMiiMiiHRSuiord master 8W" : P r i nt : P r i nt 

2 Print"liiifT'our bluest is to destroy the in~" : Print" vadin9 army and save the Ki 
n9dom." 

10 v»33248 : dP=130Pokev+39, 1 :pokev+40, 13 

11 w*rndOti > : w*0 ; rem #seed rnd 9en. 

12 9osu.b600 

20 forx«dPto13?:sd«x*64 

23 rem dP»sPrite data block : sd®actu.al memory loc. of dP 
30 f orbn-=0to62 ; readd : P ok ebn+sd , d : nextbn 
40 next x : rem ###sPrites done**# 

43 rem #set uP initial sPrite x,y 
30 Pokev, 100Pokev+1, 100 : rem s0 

60 Pokev+2 » 150‘Pokev+3 > 100 : rem si 
123 rem #nou' assi9n initial data blocks 
130 Poke2040,130:Poke2041,133 
143 rem #now 9et into main pr9m 
146 *d*0 : rn*l : Print"W" 

148 P ok ev+21,3 ; P x«110 : cx a 160 *• P ok ev.. P x '■ Pokev+2 .. cx 

149 f orf 1«1384to 1423 : Pokef 1, 160 '■ next '■ w«Peek < v+30) • P r i nt" OT»»t**###**#REflBY " 

130 ed«ed+l : ifed=2thened*0 : 9otol53 

131 9otol54 

153 rn«rn+1 : 9osu.b600 : rem round counter 

154 Print M 9ma»**>M»*»il!IW?.ou.nd: aW " ; rn = eP = int < <rr.d<;0>*3> + l > + 134 
133 ifrn«llthenPrint ,, aECT»»*»»i*»»CFinal Round SW" 

156 Pw=»int < <rnd(0)#4>+l > + 130 

160 cP“int*!rnd<0)#6>+l ■ i f cP = 1 thencP* 153 

163 ifcP«2thencP*156 : cx*cx-2 

170 if cP s= 3thencP«157 

171 i f < cP >3 > andC cP <.? > thencP ”137 
175 P ok e2041.. cP : P ok ev+2, cx 

180 i fcx< •' P x+10 > thencx®cx+10 

181 if<cP*156>andCPeek<2040)"150>and<cx<Px+l1>then260 
183 9etP it- : Poke2040.. 130 : ifP it”” "then 135 

190 i f P i t” " u." thenP P «131 
193 ifPi$«"n"thenPP«152 
200 ifP it 3 *" J "thenPP=> 133 =Px*Px+2 

210 ifPit«"h"thenP P»134 : Px®P x-10 

211 P ok e2040.. P P : P ok evP x. 

213 if<pp*l33>and <cP =eP>and <P eek <v+30> *3>then230 

217 if <cP *156 >and(P P”P w>and <P eek <v+30>”3 >then260 

218 ifPx<30thenPx«30 

219 ifcx>190thencx - 190 

220 ifP x>190thenP x*185 

221 ifcx<30thencx*40 

222 if<PP”131>and< cP «135>then9osub300 

223 if<PP” 132>and<cP = 137>then9osu.b300 

224 i f < P p «153 > and < cP ® 156 > then9osu.b300 

225 9otol60 

230 se=se+l : Print” ana»ttEWBISBH its to Enemy: !■■■! ; se; ” 3?” 

231 ifse<1 + <rn/2> then160 
233 ifrn>101hen310 

240 se”0 : P3”P3+1 : Print 11 gEBBBBBTOg E » »taEnemies : a " ;P3 

250 p ok ev+211 : f orzc«l to 1500 : nextzc : Pr int"3" '• 9otol48 

260 P2=P2+1 : Print”^tT“CetCtX.T^ClSLTr»»»raHits : 31 ” ; P2 : forzc* 1 to 1300 : next 


270 ifP 2>rn+20then290 

280 9oto 153 _ 

290 P ok ev+2 1 ,2 : P r i nt" ^ti&tillkl^ilsKiibiiiiiPkkiirSSrrhe VictoraW" 
300 end 

310 Pokev+2I; 1 '• Print''SfittBEBEEBBliPiiWililiPiaBrrhe VictorSW” 
320 P r i nt" JB RflT 1 NO Si" : Pr i nt '• P r i nt" 


330 ifP2<8thenPrint"SBwordmaster«i" : 9oto400 

331 i f p 2 < 1 1 thenP r i nt" SKni9ht«l" : 9oto430 

332 i fP 2< 14thenP r i nt"3Swordsman«J" '■ end 

333 ifP2<17thenPrint"9klarrior*i" : end 

334 i f P 2<20thenP r i nt " 33F i 9hterwl" : end 

335 i f P2<24thenPr int"9Br i 9and*l" : end 

336 i fP2>23thenPr i nt" ^Peasant- i n-tra i n i n9^" ■ end 

337 end 
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400 f orP k~ 150to 153 : 9osu.b5G1 : P ok €-2040.. P k : f orp 1 -1 to400 : nextP l '• nextPk 
410 9O2.u.b60G : P r i nt" >3" : P ok ev+21,0' end 

450 forPk = 131to 152•9osub5G1'Poke2G4G,Pk '■ f orP1«1to8GG'nextP1'nextPk 

4 6 G 9 o 2 - u. b 6 0 0i : P r i n t" S3" : P o k e v+21.. 0 '• e n d 

500 ifPeek <y+30><> 3 1henretu.rn 

501 P ok*34296, 15 : P ok *54277,0 '• P ok *34278,231 

5 G 5 p o k e 54284, G ■ F’ o k e 54285,231 
510 Poke54273,155:Pok*34272,120 

515 P ok e54280, i ntr nd < 0 > *2 ) +105 : P ok e54279, 1 nt ( r nd < 0 > *255 !> +1 
520 P ok *34276, 33 • P ok *54283, 21 '• forz3* 1 to49 * next 
5 2! 5 P o k e5 4,876,32 : P o k e54283,20 
530 return 

600 r e pi if ** <= 1 j. b r o u. t i n e t o P 1 -3. y m -3. i n t h e ro e # if * 

610 P oke54296,15-P ok *34277,21-Pok*54273,199 
615 Pok*34234,21:Pok*54285,199'■Pok*34276,33:Pok *54283,33 

620 P ok *34273,17' P ok *54272,37 : p ok *54280,45 : P ok *54279, 198 '• 1. v® 100 : 9osub7GG 

621 P ok *54273, 17' p ok *54272,37 '■ pok *54288,45 '• P ok *54279, 1.98 : 1 v= 150 : 9osub700 

622 P ok *54273, 22 : Pok *54272,227 : P ok*54280,61 = Pok *54279, 126 : 1 v«300 : 9osu.b7G0 

624 P ok *54273, 17 : pok *54272, 37 : pok *54280,45 '■ P ok*54279, 198 : l y-100 : 9osu.b7G0 

625 pok*54273,22 '■ Pok*34272,227 : Pok*54280,61 'Pok*34279, 126 ‘ tv«390 : 9o*u.b700 

626 P ok *54276,32 : P ok e54233,32 '■ r*tu.rn 

700 fortd* 1 to 1 v : n*xt • Pok *54276,32 ' P ok*54283, 32 
710 P ok *54276,33 '• P ok *5428333 : retu.rn 
1000 r * rii * * * * *64 * n 9a r d * * * if if if 

1010 data 120, 0 ,30, 0 , 0 ,63, 0 , 0 ,30, 0 , 0 , 12, G, 0 ,255, 194,0,255,242 
1013 data 0,223,127,254,223,63,255,223,2, 0 ,223 
1020 data 2,0,31,G,G,63,128,0,123,192,0,241,224,0, 224 
1G30 data 224,G,113,192,0,113,192, 0 ,59,128,0,31, G, 0 , 127, 192,0 
1040 rerri iff*if*64 u.P block.*#*## 

1050 data 6,0,2, 15, 0 , .1.2,31, 128,28, 15,0,56,6,0,112, 81, 1 96 ,224 
1060 data 127,227,192,239,179,128,207,159,128,207, 156,64,207 
1070 data 136,G,207,128,0,31,192,0,61,224,G,12G,240,0, 96,48 
1080 data 0 ,112,112,0,36,224,0,24,192, 0 ,24,192,0, 120,240 ,0 
1090 rem ****#64 down block***** 

1100 data 3,0,0,7,128,0,15,192,0,231,128,0,243,0,0,223,128,0 
1110 data 207,240,0,207,248,0,2G7,140,0,15,140, 128, 15, 135 
1120 data 0,13,131,0,31,199,128,61,233,192,120,240,224,96, 48 
1130 data 112,112,112,56,36,224,28,24,192,14,24,192,2, 120,240,0 
1140 rem **.***64 thrust*#### 

1130 data 0,0,0,0,96,0, 0 ,240,0,1,248,0,0,240,0,0,96,0,7,248 
1160 data 0 ,13,248,0,25,234,0,49,234, 0 ,35,239,254,39,239,255 
1170 data 7,194,G,15,130,0,13,192,G,28,224,0,56,96, G 
1180 data 112,192,0,96,192,G,193,128,0,112,224, G 
1190 re pi *****64 dod9e***** 

1200 data 0,0,0,0,96,0,G,240,G,1,248,0,0,240,0,0, 48,0,3 
1210 data 255,208,14,126,56,24,61,16,43,56,224,24,19,192 
122G data 12,6,32,4,12,192,0,25,224,G,50,112,0, 100,48,0 
1230 data 200,24,1,144,24,1,56,28,2,24,12,0, 112, 15 
124G r e m * * * * * * v i 1 e ri 9 a r d e * * # * * 

125G data 64,27,96,64,39,144,96,15,192,96,7,123,43,3,0,36 
126G data 31,224,28,63,24G,14,167,248,7,103,220,3,231 
1270 data 196,4,199,196,0,135,196,G,7,196,0,14,224,0,28, 112 
1288 data 0 ,24,48,0,24,48,0,24,48,G,24,43,0,24,43, 0 , 120,240 
129G re m :f****evil thrust***** 

1300 data G, 53, 128,0,78, 64, G, 31, G, 0, 14, G, G, 6, G, 0,31,0, Pi, 63 
1310 data 128,0,63,192,1,46,192,129,47,96,127,175,176, S3 
132G data 239,152,1,15,200,1,13,200,G,29,224,0,56,96,0,28 
1330 data 112,0,28,56,0,12,28,G,12,6,0,56,28 
1340 re pi * * * * * e v i 1 do uj n bio c k * * * * # 

1358 data 0,27,96,0,39,144,0,15,192, 0 ,7,128,G,3,0,0,63,224,0 
1360 data 235,240,4,199, 243 , 3 , 1 35,220,3,7,196,7,135, 196,14,7,196,28,7,196 
1370 data 56,14,224,240,28,112,96,24,48,G,24,43, G, 24,48, S, 24 
1380 data48,8,24,48,0,120,248 
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JOYSTICK MOVEMENT 

Listing 2—Joystick for Swordmaster 

185 pi = Peek(56320):Poke2040, 150: ifpi = 127thenl55 

190 ifpi = 126thenpp= 151 

195 ifpi = 125thenpp= 152 

200 ifpi = 119thenpp= 153:px= px + 2 

210 ifpi = 123thenpp= 154:px= px- 10 



12. Bug Run 

In this program, you play the part of an industrious beetle, trying to bring 
home the bacon. Your present locale is the first floor of a very busy 
department store. Your home is on the tenth floor. For every foot for¬ 
ward, there’s a foot above you.. .ready to step on top of you! 

PLAYING 

After RUNning the program, eight boots will appear on the screen. Your 
player marker is the solid white circle (SHIFT Q). Hit any key to make the 
symbol appear in the starting block. Then, to move, use the period 
key to move right and the comma key to move left. 

To get to each succeeding level, you must get from the right side of the 
screen to the left, without getting squashed by one of the boots. The level 
number will be displayed, as you go. 

If you are unfortunate, and are squashed, pressing any key will re-start 
the game. 


PROGRAM 

Line 5 clears the screen before calling the subroutine to set up the SID for 
the boot thump sounds. Line 10 turns on all eight sprites, initializes the 
screen address (SA) for the bug dot and resets the level counter (L). Line 
25 sets all the sprite foreground colors to white. Line 30 POKEs in the 
sprite shape. Lines 40 and 50 set up the eight sprite initial X and Y coor¬ 
dinates. Line 60 assigns data block 150 to the eight sprites. Lines 70 to 80 
place the sprites on the screen. Line 187 clears the line of the display on 
which the bug will travel. 

The main routine in this program consists of seven parts. Lines 90 to 117 
contain the programming which directs the flow for the seven routines. 

The first routine is a subroutine, beginning at line 200. In line 200, a 
counter variable (CV) is incremented by the level number. If the total held 
in CV is less than five, this routine is bypassed. When the total is greater 
than five, DF is filled with a random number which will vary in range ac¬ 
cording to the level number of the game. At level 1, the number will be 
from 0 to 29. At level 9, the number will be between 0 and 21. This random 
number is used to determine which boot will stomp. If the number in DF is 
less than eight, one of the boots will be activated; if the number is eight or 
greater, no boot is chosen. 

The end result is that the boots will be more active at higher playing 
levels. 


49 



50 USING THE COMMODORE 64 IN THE HOME 


The second routine is the player input routine, from lines 120 to 150. If 
no key has been depressed prior to the calling of this subroutine, it will be 
bypassed. However, if a key has been depressed, it will be stored in the 
keyboard buffer, until this point. This subroutine decodes the player’s 
movement and displays the move. If the player has made it to the left of 
the screen, line 131 sets the flag (NS) to indicate the level has been com¬ 
pleted. 

The third routine (appearing on line 90) checks to see if the NS flag is 
set. If so, the program jumps to line 85 to update the level number. If NS is 
not set, the program drops to the next line to call the fourth routine. 

The fourth routine begins at line 700. This routine first moves the ap¬ 
propriate boot from half way to its fully down position then calls the 
routine (900-930) which outputs the boot’s thump. At line 708, the sprite- 
character collision register is read. If a sprite has made contact with a 
screen character, this register will hold the value of the sprite which collid¬ 
ed with the data: i.e. this register detects when a boot has squashed your 
bug. When this is true, lines 600-630 output a message, then await a key 
depression to restart the game. If the bug is still safe, the RETURN is to 
line 109 for the fifth routine. 

The fifth routine is a simple time delay. The FOR.. .NEXT loop may 
be deleted for a faster game. After the delay, the sixth routine is called, 
beginning at line 800. This simply lifts the boot up to the half-way point. 
The boot is fully retracted in the final routine, from lines 110-117. After 
that, the program jumps back to line 90 to begin the cycle again. 


PROGRAM LISTING 

5 CLR : PRINT"• GOSUB1000 

10 V*=53248 : POKEV+21,255: L=0 : Sfl-1534 : E1 “PEEK < V+31 > 

25 F0RTT-V+39TQV+46:P0KETT,1:NEXT 
30 FORP-0TO62:REflDD:POKE9600+P,D:NEXT 

40 X0-30 : X1 =55 : X2«90 : X3- 115 = X4« 150 ’• X5* 175 '• X6-210 : X7-235 
50 V0-100 - V1»100 : V2-100 '• Y3* 100 : Y4« 100 : V5-100 : V6* 100 ■ V7-100 
60 FORCC-2040TO2047:P0KECC, 150 = NEXT 

70 POKEV, X0 : P0KEV+1, Y0: POKEV+2, X1 :P0KEV+3,V1 : POKEV+4, X2 : POKEV+3, V2 
75 POKEV+6, X3 : POKEV+7, V3 : POKEV+8, X4 : POKEV+9, V4 = P0KEV+10, X5 = POKEV+11, V5 

80 POKEV+12,X6•POKEV+13,Y6 : POKEV+14,X7:P0KEV+15,V7 

81 TI$*’'000000" 

85 L=L+1 : PR I NT " OfUIMLEVEL : " ; L : NS-0 

86 IFL>10THEN300 

87 PORPP=1504TO1514 '• POKEPP, 32 : NEXT 
90 OOSUB200:G0SUB120:1FNS-1THEN85 

109 GOSUB700’FORTT*1TO250:NEXT:GOSUB800 

110 IFDF-0THENPOKEV+1,100 

111 IFDF*1THENPOKEV+3,100 

112 IFDF-2THENP0KEV+5,100 

113 IFDF-3THENP0KEV+7,100 

114 IFDF=4THENP0KEV+9,100 

115 IFDF-5THENP0KEV+11,100 

116 IFDF-6THENP0KEV+13, 100 

117 IFDF-7THENP0KEV+15,100 

119 GOTO90 

120 GETflJ>: IFfif=" "THENRETURN 



BUG RUN 51 


123 POKESft, 81 = PCiKESft+3, 32 : POKESR-3,32 

130 IFAC*",”THENSfl-Sfl-3 

131 I FSA*< 11503THENSR-1334 : NS^l : RETURN 

133 I FAC* " . " THENSA-SA+3 '■ I FSR> 1534THENSR-1334 
136 POKESfl, 81 : POKESA+3,32 : POKESA-3, 32 
130 RETURN 

200 CV-CV+L:IFCV<3THENRETURN 

201 CV-0 

202 DF*INT<RND<0>*<30~L>) 

203 IFDF-0THENPOKEV+1,113 

204 IFDF-1THENPQKEV+3,113 

205 IFDF-2THENP0KEV+3,113 

206 IFDF-3THENP0KEV+7,113 

207 IFDF*4THENP0KEV+9,115 

208 1FDF-5THENP0KEV+11,113 
203 IFDF~6THENP0KEV+13,113 

210 IFDF«7THENP0KEV+13,115 

211 IFPEEKC V+31 )O0THENOOTO600 
213 RETURN 

300 PRINT "13" :ETC*TIC 

310 PR I NT : PR I NT : PR I NT : EHC*LEFTC < ETC ,2 V- EMC»M I DC < ETC ,3,2) : ESC-RIGHTC (ETC, 2) 

320 PRINT" VOU'VE COMPLETED THE RUN IN '- "= PRINT 

330 PRINTTRD<13>;EHC;"•";EMC;":";ESC 

340 STOP 

300 RETURN 

600 POKESfl, 100 • POKESD+1,2: POKESD, 133 : POKESD+4,33 
603 POKEV+21,0:PRINT"WMWOU'VE BEEN SQUASHED! " 

610 PRINT"LRST LEVEL COMPLETEDL-l 
613 POKESD+4, 32 ■ FORTT* 1TO2300 • NEXT 
620 GETRC '• IFAC* " " THEN620 
630 CLR : RUN 

700 IFDF-0THENPOKEV+1,130=GOSUB900 

701 IFDF«1THENPOKEV+3,130:GOSUB900 

702 IFDF-2THENP0KEV+3,130:GOSUB900 

703 IFDF-3THENP0KEV+7,130:GOSUB900 

704 IFDF-4THENP0KEV+9,130:GOSUB900 

705 IFDF-3THENP0KEV+11,130:GOSUB900 

706 IFDF*6THENP0KEV+13,130:GOSUB900 

707 IFDF-7THENP0KEV+15,130:GOSUB900 

708 IFPEEKCV+31 )O0THENGOTO600 
710 RETURN 

800 IFDF-0THENPOKEV+1,113 

801 IFDF«1THENPOKEV+3,113 

802 IFDF-2THENP0KEV+3,115 

803 IFDF-3THENP0KEV+7,113 

804 IFDF-4THENP0KEV+9,115 
305 IFDF«*3THENP0KEV+11,113 

806 IFDF-6THENP0KEV+13,113 

807 IFDF*7THENP0KEV+13,113 
810 RETURN 

900 SD-34272:POKESD+4,129 
910 FQRSL-1TO130-<L*10>:NEXT 
920 POKESD+4,128 
930 RETURN 

1000 REM"BOOT SOUND ROUTINE" 

1010 SB**54272 : POKESD+24, 13 
1020 POKESD+3,0 ; POKESD+6,231 
1030 POKESD+1,6'POKESD,6 
1040 RETURN 

9130 DATA 0,2,234,0,3,234,0,2,234 

9140 DATA 0,3,254,0,2,234,0,3,234 

9130 DATA 0,2,234,0,3,234,0,2,234 

9160 DATA 0,3,250,0,5,230,0,13,230 

9170 DATA 0,23,231,60,63,231,102,93,249 

9180 DATA 123,255,233,127,253,233,233,235,233 

9190 DATA 255,252,235,253,240,233,255,192,234 






13. Arsonist! 


You’re the newly elected Fire Chief of Videoville; a quiet, quaint suburb 
of Game City. However, the ex-Fire Chief has suddenly gone crazy and 
wants to have you thrown out of office. He has hired a band of profes¬ 
sional arsonists to burn down all of Videoville! Your job is to 1) put out 
the fires, and 2) catch the arsonists. 

PLAYING 

The structure of the game is such that you must put out as many fires as 
you can before apprehending the arsonist. Otherwise, you will lose points 
for every existing fire. If you wait too long, the arsonist will set too many 
fires, and you’ll lose points anyway! 

To move, use the “J” key to move right, the “H” key to move left, the 
“N” key to move down screen, and the “U” key to move up screen. You 
will score 5 points for every fire you put out, 100 points for capturing each 
arsonist. However, you will lose 5 points for every existing fire after nabb¬ 
ing the criminal. 


PROGRAM HIGHLIGHTS 

Lines 1, 2, 8, and data statements on lines 900-970 are used to program in 
a partial character set. Line 3 sets the background color. Lines 6 and 7 set 
the colors to be used in displaying the new multi-colored characters. Line 4 
puts the 64 into the Multicolor Character Mode. Line 5 moves the charac¬ 
ter data address to allow the computer to get its characters from RAM, 
rather than from the ROM character generator. The new character gen¬ 
erator is stored in memory, beginning at memory location (not to be con¬ 
fused with line number) 8192. 

Lines 9-50 print information on the screen. When viewed in the stan¬ 
dard character mode, the screen is filled with“@” and “A” characters. In 
the new character set, the“@” is the left side of a tiny house, the “A” is the 
right side. Since the listing is shown in the standard character format, it 
will seem a little strange. In lines 40 and 50, for instance, the string 
“BCDEFG” will be displayed on screen as “SCORE:”, “BCEG” will ap¬ 
pear as “SCR:”. “SCR:” denotes the screen level at which you are play¬ 
ing. The numbers 0-9 will appear in their normal state, although in a dif¬ 
ferent style of type. They appear larger, due in part to the multicolor 
mode, which uses a 4 by 8 dot matrix, whereas the standard character 
mode uses an 8 by 8 grid (although most of the characters utilize only a 5 
by 7 portion). 
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Line 100 sets up variables which will be used later to move the player 
and arsonist characters. Line 105 places both characters in their respective 
starting locations. Line 110 replaces the player symbol with a space. Line 
115 scans the keyboard for a player to move. If the player has depressed a 
key, the key is picked up by F$, then transferred to M$. Had no key been 
pressed, the program would have jumped to line 120. 

Lines 120-150 will either update new movements, or else will maintain 
the last valid move. Each command will modify the position of the player 
in screen memory. Lines 120-150 also define the limits of movement 
within screen memory. 

Line 160 looks into the screen memory block specified by the number in 
PL. If the block does not contain a code of 32 (space), the subroutine at 
line 270 will be called. More about this later. 

Line 165 checks to see if the next block in screen memory is the arsonist 
character. If so, the player score is increased by 100. The enemy flag (EF) 
is then set. Line 170 puts the player back on screen, in the new location, 
and then checks the enemy flag variable. If EF is set, the program flow 
transfers to line 400 (after EF is reset). 

Now, back to the subroutine at line 270. This is called only when the 
next move will cause the player to move into an occupied space. In this 
case, there must be one of three things in that block; the arsonist (checked 
at line 270), a segment of a house (which will either be burning or not), and 
a border or off-limit block. 

If the block is a segment of a house which is burning, line 271 will recog¬ 
nize and put out the fire. If the block is neither an arsonist, nor a burning 
segment of a house, lines 275-300 adjust the position of the player to the 
nearest free space, based on the direction of travel. 

After processing the player information, the computer begins to check 
movement and display the arsonist. This is done in a parallel fashion to 
that of the player. Of course, the arsonist detects non-burning house seg¬ 
ments, and sets them on fire. 

The computer determines the arsonist’s movement in lines 190-230. 
This movement is generated by a rather rudimentary artificial intelligence 
method. Line 190 generates a random number between 1 and 8. If the 
number chosen is less than five, it is then tested (in lines 195-198) to deter¬ 
mine whether it is a 1 or a 2. If the number is in fact a 1 or 2, no further 
tests are made upon it and the arsonist will either move up (on a 1) or down 
(on a 2). If the number was less than five, yet greater than two (i.e., a three 
or a four), then, again in lines 195-198, the movement is determined by 
checking the next block up, down, right and left. If any of these four 
blocks contain the player character (screen display code 8), the arsonist 
will move away from the player. If none of the four blocks checked con¬ 
tain the player, then the movement will be either to the right (on 3) or left 
(on a 4). 
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Back to line 190: If the random number was a five or greater, the direc¬ 
tion will be chosen based on the nearest fire-setting route available. To un¬ 
derstand this a little better, let’s look more closely at lines 191 to 194. 

Line 191 looks into the screen memory location which is two blocks 
above the arsonist. If this isn’t a blank space, chances are it’s a house. The 
direction variable (M) is set to 2, allowing the arsonist to move towards the 
house (which may actually be the player). Similarly, line 192 checks the 
block to the right. If this is an occupied location, the M setting is set to 
three, and the arsonist moves to the right. Line 193 checks the left; line 194 
checks two blocks down. 

Lines 200-230 process the M, or movement variable, checking also for 
out of bounds conditions. 


PROGRAM LISTING 


1 F0RT*8448T08453 '• POKET, 0 : NEXT 

2 FGRT*S192T08271:PERDU:POKET,D•NEXTT 

3 P0KE33281 .• 12 

4 POKE33270,216 

5 P0KE33272,24 

6 P0KE33282,11 

7 P0KE33283,15 

8 F0RT=837GT08655 : RERDD'POKET,D:NEXT 

9 PR I NT" 71" 

15 F0RX-1T05 

20 PRINT"1 OR OR ®R HR HR HR HR HR1" 

21 PRINT"1 1" 

25 PRINT"1 HR HR HR HR HR HR HR HR1" 

26 PRINT"1 1" 

30 NEXT 

40 PR I NT " isiCliH|iPCDEEP0 " P3 
50 PR I NT "H" ; TAB < 23) J " BCEG" 1 
90 L*12:SF=0 

1G0 PP*32 : EP=32:PC“8•EC"9:PL-1354:EL*1476•SF*0 
105 POKEPL,PC:POKEEL,EC■FORGO*1 TO1300:NEXT 

110 POKEPL,PP 

111 F0RP9*1 TO<L*17>-51 ■NEXT 
115 GETFT '• IFF$0""THENM$=F$ 

120 IFM$*"IJ"THENPL*PL-40 '• IFPL<1064THENPL«PL+40 
130 IFM$ * " N " THENPL-PL-t-40 : I FPL> 1864THENPL*PL-40 
140 IFM$=" J" THENPL SS PL+1 : IFPL> 1864THENPL*PL-1 
150 IFM$="H"THENPL*PL-1 • IFPL<1064THENPL«PL+1 
160 PP*PEEK<PL) : IFPP032THEN00SUB270 
165 IFPP”9THENPS as PS+150 POKEEL, 32 : EF*1 
170 POKEPL,PC■IFEF-1THENEF*0:GOTO400 
175 IFPP=9THENPS*PS+100 ; POKEEL,32■EF*l 
180 POKEEL,EP 

190 F*INT<RND<0 >*8) + 1■IFF<3THEMM~F'GOTO193 

191 I FF>4THEN I FF'EEK C EL+3Q }032THENN-2 

192 I FF>4THENIFPEEK<EL+1 >032THENM*8 

193 I FF>4THEN I FPEEK< EL-1 > 032THENM as 4 

194 I FF>4THEN I FPEEK < EL-80 > 032THENM-1 

195 I FF>2THEN I FPEEK (. EL-40 > =8THENM as 2 

196 IFF>£THENIFPEEK<EL-1>*8THENM*3 

197 IFF>2THENIFPEEK< EL+1)=8THENM=4 

198 IFF>2THENIFPEEK<EL+40>»8THENM*1 

2O0 IFM-1THENEL--EL-40 : IFEL< 1064THENEL*EL+40 
210 IFM*2THENEL*EL+40:IFEL>1864THENEL-EL-40 
220 I FM=3THENEL'~EL+1 : I FEL> 1864THENEL-”EL~1 
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230 IFM=4THENEL=EL-1 : IFEL<1064THEHEL-EL+1 
240 EP=PEEK<EL> : IFEPO32THENGOSUB340 
250 POKE ELEC 
260 GOTO 110 

270 IFPP”9THENPS= = PS+150+ a0*< 13~L> > ■ POKEEL, 32 ■ EF~ 1. 

271 IF <PEEK <PL+54272> AND < 14> > 014THENP0KEPL+54272, 14 • PS*PS+10+ <13-L > : SF*SF-1. 

272 PP*32 

275 IFM$~"J"THENPL*PL-1 

230 I Fm :=" H " THENPL-PL+1 

230 I FM$« " U" THENFL*PL+40 

300 IFM$-"N"THENPL=PL~40 

310 IFPP=9THENPS*PS+100 : POKEEL,32■EF-1 

32G PR I NT " Pin** » * *CHEF0 " PS 

330 RETURN 

340 IFEP“ST HENPS=P S+100 : POKEEL, 32'EF^l 

341 IF*:!PEEK<EL+54272>AND< 15> >O2THENP0KEEL+54272,2 • 3F^SF+1 : TFSF>50THEN40G 

342 EP-32 

350 IFM=lTHENEL«EL+40 
360 IFM~2THENEL~EL-40 
370 IFM-3THENEL-EL-1 
330 IFM=4THENEL=EL+1 
390 RETURN 

400 US-PS-SF■POKE53231,1:POKE53280,0 
410 FORTT=PSTOIJSSTEP-1 
415 PR I NT " ft«* B B B B 

420 PR I NT" Pin* B B B BC D E F0 " TT 

425 IFPSC0THEN460 

426 NEXT PS-US : P0KE53281,12- POKE53280,12 

427 PR I NT " Siem»»»» 

428 PR I NT " Pin*BBBBC:IiEFG " : PS 
430 L=L-1 '• IFLC3THEN460 

440 PR I NT ” 71" , TAB < 25 > " BCEG"; < 13-L I 

450 POKEEL, 32 : POKEPL, 32 '• GOTO 100 

460 P0KE53281,1•GOTO470 

463 P0KE53231,INT(RNB(0>*7 > +7 

478 F0RTC-1T02500 

475 GETR$■IFRt—"R"THENRUN 

430 NEXT 

430 GOT0465 

900 DAT A3, 13.. 55,223,39,39,47,42,192,112,220, 247, 184, 184, 184, 163 
910 DATA84,84,64,84,84,4,84,84,20,84,64,64,64.64,84,20 
915 BATA 16,84,68,63,68,63,84, 16 

920 BATA80,84,63,68,30,84,68,63, 20,84,64,80,30,64,84,20 

930 DATR20,20,20,3,0,20,20,20 

931 BATA20,20,85,170,170,85,20,20, 192, 192,192,192,255,255,255,255 
935 DATA34,63,68,63,63,63,68,84 

940 DATA 4,4,4,4,4,4,4,4,84,34,4,34,84,64,84,84 
950 DATA84,34,4,84,84,4,34,84,68,68,63,84,4,4,4,4,84,34,64,34 
960 DATA4,4,4,84,34,64,64,84,68,68,68,84,84,4,4,4,4,4,4,4 
970 DATA34,68,68,34,68,63, 68, 84,84,68,68,84,4,4,4,4 







14. Music, Maestro 


Note: This program is not a game. It has been devised in order for you to 
take advantage of the excellent sound synthesizer in the Commodore 64. It 
is heartily recommended that you read Chapter 7 in the Commodore 64 
User’s Guide. Also recommended is Chapter 4 in the Programmer’s 
Reference Guide. 

Using this program, you can compose music, translate written music in¬ 
to a form the computer can understand and, therefore, play; you are able 
to explore the many different sounds which the computer can generate. 

For those of you who have no access to a copy of the Programmer’s 
Reference Guide, and since the User’s Guide explains nothing of the filter 
section of the SID chip, a brief description is in order. 

There are three types of tone filters available; high pass, low pass, and 
band pass. By combining the high and low pass filters, a fourth filter may 
be emulated; this is known as band reject, or notch filter. The high pass 
filter does as its name implies; it allows high frequencies to pass through it, 
unaffected. The lower frequencies, or notes, are attenuated, or, to put it 
more simply, are cut down in volume. The low pass filter does the reverse; 
it allows the lower notes to pass, while attenuating the higher ones. You’ve 
used these filters before; they appear on most stereo units as the bass and 
treble controls; the low pass filter as the bass control, the high pass filter as 
the treble control. 

The band-pass and band-reject filters are also aptly named. Both filters 
allow a certain cross section, or band, of frequencies to be modified. The 
band-pass filter attenuates the frequencies on either side of the band, 
allowing the middle range of frequencies to pass. This type of filter is 
found on some stereo units as the mid-range tone control. 

The band-reject filter is just the opposite. In this filter, the band of fre¬ 
quencies is attenuated, allowing the frequencies on either side of the band 
to remain un-affected. This type of filter is most normally used to 
eliminate unwanted frequencies, such as the 60-Hz hum generated by an 
AC power line. If your stereo has a hum suppression circuit, it is most like¬ 
ly a band-reject filter. 

For the three filters in the Commodore 64, two controls are provided; 
the cut-off frequency can be specified, as well as the resonance of the 
filter. The cut-off frequency determines the corner frequencies for high-or 
low-pass filters as well as the center frequencies for the band-pass filters. 
(See figure 1). This value, denoted by the symbol Fc, determines the final 
output of the sound. Changing the value is analogous to turning up or 
down a bass or treble control. Resonance effects are shown in figure 2. As 
the resonance value is increased, the slope of the filter (graphed as in figure 
2) is sharpened. This simply means that the frequency at which maximum 
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attenuation is exhibited is at higher resonance values, closer to the cut-off 
frequency than at lower resonance values. 





Figure l ~ Kwonmce effects 







MUSIC, MAESTRO 59 


USING THE MUSIC PROGRAM 

The first sound parameter to be set up is the optional filter section. Enter¬ 
ing a “y” when prompted will access the filter modification section of this 
program. 

The first selection is filter mode. Since the three modes may be mixed, 
valid inputs are between 16 and 112. Note that this input also affects 
whether voice 3 will be in the audio path or not. Voice 3 will be in the audio 
path, unless de-selected. Entering a “0” will cause no change in this set¬ 
ting. 

The next input controls the resonance of the filters you have chosen. 
Any value from 0 (lowest) to 15 (highest) is valid. After the filter has been 
set, you must choose which of the three voices will be sent through the 
filter. Entering a “0” will cause all voices to bypass the filter. Entering a 
“7” (maximum) will process all three voices through. 

The last filter setting is the optional modulation setting. This input will 
determine whether voice 3, or its ADSR generator will cause a variation in 
the filter cut-off frequency. Using this modulation will cause the filter’s Fc 
to be continuously changed during the playing of a note. Entering a “0” 
will choose no modulation; a 1 or 2 will choose a modulation, as described 
by the program. 

The A/D, S/R, and Pulse Width settings are, as explained in the User’s 
Guide, numbers from 0 to 255. Values above 255 will cause the Program 
to stop with an ILLEGAL QUANTITY error. 

The Tempo input value can be any positive value from . 1 to anything. 
50 seems to be the slowest bearable speed. 

The waveforms are selected as shown in the User’s Guide. Note the ad¬ 
dition of Ring Modulation and Sync capabilities. Ring modulation is used 
to produce bell-like tones, gongs and other clangorous sounds. 

After entering the waveforms, the set up of the SID synthesizer is com¬ 
plete. The next section of the program is used to enter the music notes for 
playing. 

Each note is defined by entering two characters. The first character 
defines the note’s letter value (A-G). The second character is a number, 
from 0 to 7, which defines the note’s octave. Accidental notes (sharps and 
flats) are also available. To enter sharps simply use the shifted letter of the 
note; i.e., F-sharp, in the fifth octave, would be entered as F5. The natural 
F, in the same octave would be entered as f5. To enter flats, you must first 
convert the note to its equivalent sharp: G-flat in the fourth octave 
becomes F-sharp in the fourth octave, or F4. To convert flats to their 
equivalent sharps, use the MUSIC NOTE VALUES chart. Appendix M, 
pages 152-154 in the User’s Guide. First, find the natural of the flatted 
note. Next, find the note directly above the natural. This is the note you 
want. Note that C and F do not have flats and B and E do not have sharps. 
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All three voice note values are entered in sequence, along with the op¬ 
tional Fc, on one line. The Fc input can be skipped by using the RETURN 
key. Do this only if you have selected a filter modulation source, or are not 
using the filter at all. Even if only one voice is using the filter, you must 
enter an Fc value (0-255) for each line. The only other option is to enter a 
— 1. This will instruct the computer to enter a random number into the Fc 
memory for that line. 

You have a maximum of 500 such lines to program music data into. If 
your song takes up less than 500 lines, entering “st” (lower case as shown) 
will instruct the computer to stop accepting music line inputs. The com¬ 
puter will then begin to compile the music lines. This can take quite a long 
time, if your song is very long. Once the music has been compiled, the 
computer will instruct you to hit RETURN to begin the music playing 
routine. 

As the music begins, a control code menu will be displayed. The music 
will play over and over again, unless you hit the “W” key. Note that all 
these codes are entered without using the RETURN key; the GET instruc¬ 
tion is used to input a keystroke. Also note that the computer will finish 
playing the music before responding to the command. 

The “M” command (Modify set-up) will allow you to re-program the 
SID chip’s registers, while retaining the music data or song. If you only 
want to change one of the settings, hitting RETURN instead of entering 
data will cause the previous setting to remain unaltered. After modifying 
the synthesizer, you’ll need to hit RETURN to re-play the song. 

The “Q” command is used only when you wish to end the program. 
The “Q” key will allow you to use the RUN/STOP key to terminate, 
without having to listen to the last note played drone endlessly on. 

The “E” key is used to enter the Edit mode. The “Note#” input directs 
the computer to the correct note line. To review two or more lines in se¬ 
quence, enter “n” in response to the “CORRECT NOTE?” prompt. The 
computer will then ask for another note line. 

To edit a certain line, type “y” for the prompt, then re-type the line, 
making the proper corrections. To exit the edit mode, type in “e” instead 
of “y” or “n”. This will cause the music output section to begin again. 


PROGRAM HIGHLIGHTS 

Line 1 puts the computer in the upper/lower case display mode. Lines 5 
and 6 set up the 10 variables used to store up to 500 lines of music input. 
Three string variables (vl$, v2$ and v3$) hold the note values for the three 
voices. Six variables are needed to hold the high- and low-frequency 
numbers for each of the three voices. FH(x) is used to store the Fc of the 
filter, when necessary. 
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Lines 7-9 are used to set up the functions which convert the alpha¬ 
numeric note values (note letter/octave number) to the corresponding 
high and low frequency values for the SID chip. In line 10, variable A is 
used to hold the starting address of the SID. Line 11 calls the subroutine 
starting at line 580. This is the filter set-up section. At line 670, the pro¬ 
gram returns to line 15, the rest of the synthesizer set-up routine. The 
numbers are POKEd to their proper SID register to program the sound. 

Line 36 insures that the music input section will be bypassed in the event 
that the user is only modifying the initial set-up. Line 37 clears the screen 
to prepare for the music input section. The music input loop is from lines 
40 to 70. Line 50 detects when the user wishes to stop entering data. Lines 
80 to 140 are the music compiling lines. The method used to determine the 
proper high and low frequency values is a software simulation of top oc¬ 
tave generation. Data lines 918-945 contain the high/low frquency values 
of the highest 12 notes available. Lower octave numbers are 
mathematically derived from these values by dividing by 2 for every octave 
lowered. 

Line 141 is the beginning of the playback section. The menu is displayed 
(lines 142-146). Lines 150-220 do the necessary work in order to play the 
music. Lines 225 to 320 determine which menu selection was chosen and 
perform the appropriate actions. 


PROGRAM LISTING 

I Printchr$(14) 

3 dimv1 1 (500 ),v2 1 (300 ),v3$ (300 ),h1(300 ),h2 (300 ) . h3(500 ) , 11C300) 

6 dim12(300).13(300),fh(300) 

7 def'f nsl (y 0)*»int(y 0#( l/(2T(7-v*l (ri9ht$(vl$(fd>. 1 >))))) 

8 deffnz2(y 1)*int(y 1#( l/(2t(7-v.a.l (ri9ht$(v2$(fd), 1)))))) 

9 deffnz3 ( y 2) =» i nt ( y 2* ( 1 / ( 2 f ( 7-va 1 (r i 9ht* (v3$ (fd).1)>) ) > ) 

10 ***34272 '• Pokea+24. 13 : Pok.ea+21 . 0 : Poke.a+23.0 

II 9o3.u.b380 

13 inPut"OT¥Vril, S/Rl ” ; ol, o2 

16 i nP u.t" R/D2 . S/R2 " ; o3 . o4 

17 inPut"fVD3..S/R3";o5.o6 

18 inPut"Voice 1 Pulse width Hi. Lo";P1.P2 

19 inPut"Voice 2 Pulse width Hi. Lo";p3.P4 

20 i nPuf'Voice 3 Pulse width Hi. Lo".:p3.P6 

21 Pr int"TemPo" ; : inPutdn 

24 Poke*+3.ol:Pokea+ 6 .o2 
23 Pokea+12.o3 : Pokea+13.o4 

30 Pokea+19. o3'• Poke*+20 .06 

31 Pokea+3. P2 '• Pokea+2. p 1 '• Pokea+10. P4 : Pokea+9. P3 

32 Poke&+17.P6 : Pokea+16.P3 

33 inPut"Ull. M2. N3" J tl.t2.to : t4*tl-l :t3-t2-l :t6-t3-l 

36 ifcc$""rii"then 141 

37 Pr int" JB1" 

40 forn=lto500 

43 Print "Note ";n;t*b(9); 

30 inPut "VI " vlt(n) : if vlf (n)*"st"thenln»n ■ n®300 : vl$(n)®" " ; 9oto70 

34 P r i ntt ab (17); : i nP ut" W-/2 " ; v2 1 ( n ) 

53 P r i nttab ( 23 ); " W3 "; • i nP utv3$ (n) 

36 Printt*b(32);"*Fc"; : inPutfh(n) 

60 iffh(n)= s -lthenfh(n) c =int(rnd(0)#233) +1 
70 next 
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80 forfd«ltoln 

83 fordc«ltol3 

90 read -net., h.. 1 

93 i fncf sa " end "then9osub 1000 

100 ifnc*«left*<vl$<fd), Dthenhl <fd)«fnzl <h> : 11 <f d)®f nzl <1 > 

110 ifnc$*left$<v2*<fd), I)thenh2<fd)-fnz2<h) : 12<fd)*fr.z2(l) 

120 if nc:Mleft$<v3$ (fd) . 1)thenh3<fd)®fnz3<h) ; I3<f d)=f nz3d ) 

130 next 

140 next 

141 Pr int".«tdBHlt RETURN to P lay " ; : inPutent 

142 Printtab<3>"Sn^S — Wait mode" 

143 Pr inttab<3) "9*3 S — Quit <before break V 

144 Printtab<3)"SB?3 — Edit Music" 

143 Printtab<3) — Modify set uP" 

148 Printtab<3)"aSrS -- RePlay Music after 4 or w" 

149 Pokea+4,0 '• Pokea+11 .■ 0 : Pokea+18. 0 

150 forx=0toln-l 

133 Pokea+4.tl : Pokea+11.t2 : Pokea+18.t3 

160 Pokea+1. h 1 < x ) : P ok ea. ll(x) : i f h 1 <x) +1.1 <x) =0thenp okea+4 -14 
170 Pok.ea+8. h2<x) : Pokea+7. 12 Ox) : ifh2Cx> + 12Cx> as 0the , ftPokea+l 1 ■ t3 
180 Pokea+15.. h3<x) : Pokea+14.. 13<x) : ifh3< x ) +13 Ox ) =0thenPokea+18.. t6 
190 if (mlOl )or<ml<>2)thenPokea+22. f hOx) 

200 formm«ltodn#10 

201 ifml=lthenPokea+22.Peek<a+27) 

202 ifml»2thenPokea+22.Peek<*+28) 

210 nextmm 

220 nextx 
223 9etcct 

230 ifcct s "w"thenPokea+4.. 0 '• Pokea+11.. 0 : Pokea+18.0 : 9oto3Q0 

231 ifcc$="4"then330 

233 ifcct~"e"thenPokea+4.. 0 : Pokea+11.0 : Pokea+18. 8 : 9oto400 
236 ifccf®"m"thenPokea+4. O : Pokea+110 : Pokea+13.0 • 9otol 1 
240 9otolS0 

300 9etc2$:if c2$~ ""then300 
310 ifc2*="r"then240 
320 9oto300 

330 Pokea+4.. 0'Pokea+11.0 : Pokea+18.0 : 9oto300 
400 Print"iSSISEliiiiRrariusic Edit ModeS" 

410 input"Which note # " ; nn 
420 Print"Note "Jnn;tab<9); 

430 P r i nt" V1" v 1 $ < nn ) 

440 p r i nttab < 1 7 ) " W2 " J v2$ < nn ) 

450 Pr i nttab <23) ; " JSfo'3" v3$ < nn) 

460 Printtab<32);"IFc";fh<nn) 

470 input "Correct note <y> or On) or CelscaPe"; yn$ 

480 ifyn^* : "n"then400 
483 ify nt *"e"then141 
490 ifynf—"y"then300 

493 print"##Incorrect response" : 9oto470 
300 Prinf'EEnter new information : " 

510 Print"Note " ; nn; tab'- 9); 

520 inPut"V1" ; v 1$<nn) : ifv1 $<nn) =*"st"then 1 n=nn : n^SOO : v It 1 ' nn> = " " : 9oto361 
330 P r i nttab <17); : i nP ut" Wv'2 " : v2$ < nn ) 

540 P r i nttab < 25) ; " W-/3 " • i nP u.tv3$ < nn ) 

530 Printtab<32);"WFc"; : inPutfh<r»n> 

533 fd*nn 

560 iffh<nn)■-1thenfh<nn) = int<rnd<0)#233) +1 

361 fordc~ltol3 

362 read net. h .■ 1 

363 ifncf="end"then9osub1000 

564 if nc$= 1 ef t* < v 1 1 <f d) .■ 1) thenhl <f d)=fnzl <h) : 11 <f d)=f nzl <1) 

563 ifnc$~ 1 ef tt <v2$<f d) .• 1 )thenh2<f d)*f nz2<h> '• 12<f d)=f nz2< 1) 

566 ifnc$-left$<v3*<fd),1)thenh3<fd)*fnz3<h) : 13<fd)=fnz3<1 ) 

567 next 
570 9otol41 

580 print"SBBIDo you want to alter the filter" 

581 inPut"Hsettin9s <y) or <n)"; 9z# : if9zf-"n"thenreturn 
583 Prinf'SSliiil—Filter Set uP—Print 

590 Print"Voice 3 off <128) I hi Pass <64)" : Print 
391 Print" band Pass <32)llo Pass <16)" 

592 Prinf'Rdd the numbers in <) and enter" ; input" your choice";fs 
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533 fs-fs+15 : Pokea+24,fs 

595 i nP u.t" Enter resonance va 1 ue <0- 15V rz : rz-rz# 16 

600 Pr int"Fi Iter Voice 3 (4)" 

601 Print"Fi Iter <- Voice 2 <2V 

602 Print "Fi Iter 4- Voice 1 (1) " 

605 Prinf'Rdd the numbers in O and enter"inPutfz '• rc^rz+fz 
610 Pokea+2'3, rz 

620 P r i nt" Modu 1 at i on f r om Vo ice 3' " '• P r i nt" Osc ill a tor < 1 "> or R/TJ S/R < 2 > "; 
625 inputml 
670 return 
399 stop 

900 rem ###toP octave Generation#### 

910 data a,230,176,"G",217,139,9,205,133 
920 data "F",193,252,f,133,25,e,172,210 
930 data "D",163,31,d,153,247,"C",145,93 
940 data c,137,43,b,129,120,"R",122,52 
945 data end,0,0 

950 rem "R"~a# • "C"»c# '• "D"«d# '• "F"*=f# : "G"«9# 

1000 restore 
1005 return 




15. Pirate 


You are a modern-day pirate. For the past ten years, you’ve been collec¬ 
ting various treasures and storing them in your hideouts. Your time is 
almost up, though; the Coast Police have found you out. A massive search 
has begun to find and recover the stolen goods. The Police also wish to put 
an end to your career. 

Altogether, you’ve stashed away over $25,000. You must recover at 
least $15,000 in treasure before you leave for ports unknown. 


PLAYING 

This game, like SWORDSMASTER, can be controlled from either the 
keyboard, or with joystick control. Listing 2 shows the necessary changes 
for joystick control. 

For keyboard controls, the key moves your ship to the right, while 
the key moves it to the left. To move up, use the “ + ” key; “ - ” 
moves you down screen. 

The object of the game is to uncover $1,500 worth of treasure from each 
screen, or cove, area. Your treasure is represented by the red diamonds; 
your ship by the circle, and the police ship is shown by the “X”. You can 
not pick up treasure which has been confiscated by the police; this is 
shown when the diamond is changed into a square. 


PROGRAM HIGHLIGHTS 

Line 4 seeds the random number generator and resets the treasure counter, 
TR. The subroutine beginning at line 1000 plays the game’s theme song, 
the Sailor’s Hornpipe. The screen selection subroutine, starting at line 
2000, determines which screen (cove) area will be displayed. The screen 
chosen depends on the level of play the player achieves. Line 2010 may be 
altered as desired to change the order in which the screens are chosen. 
Valid line numbers are: 499, 2199, 2299, 2399, and 2499. Any sequence of 
these line numbers is acceptable, as long as the sequence contains the line 
numbers (one for each level of play). 

Line 20 initializes four screen memory pointers which are updated, ac¬ 
cording to both the player’s and the computer’s moves. PX is the variable 
which keeps track of the player’s current position; CX holds the com¬ 
puter’s current position. After every move, these values are transferred to 
their companion variables, OP and OC. These variables hold the old 
positions. 
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Line 30 puts the right screen display code into the pre-assigned screen 
memory location to start off the game. Line 40 generates a random num¬ 
ber, then checks land flag F8. If F8 is set (equal to 1), the last attempted 
move is considered to be invalid. In that case, the random number is used 
to choose a new route. If no land was sighted on the prior move, lines 
41-46 come in to play. These lines constitute a low intelligence radar 
simulator. The first half of these lines subtract the player’s known position 
from the computer’s location. The second half of these lines convert the 
data obtained into a movement which will cause an approach to the 
player’s pirate ship. For more details, see figure 1. From these lines, the 
computer can detect the best possible move, out of eight, in which to go in 
order to catch the player. The player’s input routine is from line 70 to line 
85. 

The subroutine in lines 300-350 checks to see if the land mass detected 
by the computer has pirate treasure hidden. If there is, the treasure is con¬ 
fiscated, or graphically closed off to the pirate. Lines 400-440 detect trea¬ 
sure for the pirate. If treasure is found, it is transferred to the pirate vessel. 


Figure 1. 

Example: Suppose the Coast Police are at location 1324, the Pirate at 
location 1402. Therefore: 

MF = (1324- 1402)/40 = -1.95 
and MF = (1324— 1402)/39 = -2 

and MF = (1324— 1402)/41 = -1.902 

Then the only integer result is -2, in the middle above. This indicates 
that either line 43 or 44 in the listing will be correct. Since the sign is 
negative (SGN(-2)= - 1), line 44 is true. Therefore, the Pirate is some¬ 
where down and to the left of the Coast Police ship. 


PROGRAM LISTING 

4 UI»RND<-TI ) : W-0 • TR-0 

5 LV" 10 '• G0SUB1000 ' N1 -1 
10 PR I NT " 73" ■ GOSUB2000 
15 P0KE53281,15 

20 PX-1921 •CX-1913 , -0O1913 OP-1921 : MM-0 
30 P0KEPX,81:P0KECX,86 

40 MOINT<RND<0>*8> + 1 = IFF8-1THENF8-0 : GOTO50 

41 MF»< CX-PX V40: IFMF-INT<MF)THENIFSGN<MF>—1THENMC-2 

42 MF-<CX-PX> X40:IFMF-1NT < MF > THEN IFSGN< MF >■1THENMO1 

43 MF - < CX-PX ) X39 : I FMF** I NT { MF > THEN I FSGN < MF > ■ 1 THENMC-7 

44 MF-< CX-PX V39'- IFMF-INT<MF>THENIFSGN<MF>—1THENMC-8 

45 MF«<CX-PX)X41 '• I FMF -1 NT C MF > THEN I FSGN < MF ) — 1THENMC-3 

46 MF-<CX-PXV41:IFMF-1NT<MF)THEN1FSGN<MF)-lTHENMC-4 

50 IFMC-1THENCX-CX+40 

51 IFMC-2THENCX-CX-48 

52 IFMC-3THENCX-CX+41 

53 IFMC-4THENCX-CX-41 
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54 IFMC-STHENCX-CX+1 

55 IFMC-6THENCX-CX-1 

56 IFMC-7THENCX-CX-39 

57 IFMC*8THENCX»CX+39 

58 IFPEEK < CX)O32THENCX*0C '• POKECX86 ; F8* 1 : GDTO40 

59 IFCX<1185THENCX*0C : GOTO40 

60 IFCX>1983THENCX-0C : GOTO40 

61 OOSUB300 

65 POKECX, 86 : POKECX+34272,7 '• POKEOC, 32 ■ OC*CX 

66 IFCCX<5+PX5RHD<CX>PX-5)THENGOSUB700 

67 IF <CX“40+PX> OR <CX*PX-40)THENGOSUB750 

70 GETR$ : GOSUB400 ■ IFR#**" "THEN72 

71 PF$*R$ 

72 IFPF$*".”THENPX-PX+1 

73 IFPF$»","THENPX-PX-1 

74 lFPF*-"+"THENPX*PX-40 

75 IFPF$*"-"THENPX*PX+40 

76 P0KE54276,32 

77 I FPEEK (. PX O32THENPX BS 0P '• POKEPX, 81 •GOTO50 

78 IFPXCl183THENPX*0P•GOTO70 

79 I FPX> 1933THENPX e =QP : GOTO70 

80 POKEPX,81•POKEPX+54272, 1:POKEOP,32 : OP-PX 


85 GOTO40 

300 I FPEEK < CX+40 > “90THENP0KECX+40, 1S0'MM*MM+1 
310 IFPEEK<CX-40>*90THENPOKECX-40, 160'MM-MM+1 
320 IFPEEK<CX-1>*90THENPOKECX-1, 160:MM*MM+1 
330 IFPEEK<CX+1>«90THENPOKECX+1, lS0 ;MMs , nM+1 
335 PRINT"»(WWHIDE OUTS LEFT: 17-MM 

340 IFMM>16THENMM*0=GOTO900 
350 RETURN 

408 I FPEEK < PX+40 > *90THENTR*TR+50 : POKEPX+40, 78 : MM«MM+1 : GOSUB450 
410 I FPEEK <! FX-40 > *90THENTR*TR+50 : P0KEPX-40,77 '• 1 : GOSUB450 

420 IFPEEKXPX-l >«90THENTR*TR+50 : POKEPX-1,78 '■ MM-MM+1 : GOSUB450 
430 I FPEEK <. PX+1 > «=90THENTR*TR+50 '• POKEPX+1,77 : MM=MN+1 : QO8UB450 

435 PR I NT " SS&WlsfTREfiSURE : * ; TR : IFTR*<500*N1 >THEN900 

436 PRINT" WSBMHIDE OUTS LEFT: ■■■■!"; 17-MM 

437 IFMM>16THENMM-0:GOT0900 
440 RETURN 

450 T9*TR/10 : IFT9>255THENT9=10 

451 P0KE54296,15 = P0KE54277,96 '■ P0KE54278,250 : P0KE54273,3 = P0KE54272, T9 
455 P0KE54276,33:RETURN 

498 REM TOP CORNER*1189 


499 

500 

501 
582 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

700 

701 

705 

706 

750 

751 


PRINT'TSmwr 
PRINT" IKS 
PRINT" 
PRINT" 

PRI NT" 

PRINT" 

PRINT" 




i i 

nmii—n 
wmmm rs 
wmm ra 

PRINT" lE&nn 
PRINT" im 
PRINT" I 

PRINT" IEM8SJ BT3 

print" imma an 
print" 

print" i mmssmn 

PRINT" 

print" 

PRINT" IBS] 

■EK&stra 

WmMX J 

wmsnsmKmm 




■r^ssm 
■Era 


■scsi ra 

ii 

ra 


ii mm 
ii mm" 

msrwmm" 
§rmm n 
r«*i mm" 
nsr ms£m n 

r«*ira ri*i mzszzzm" 

■m WM8&; 

I 11 

II tgnmnT 
i ' 1 

p «j^ | " *.•** 'W.W/^«W. 11 

wrier • * 


Ik 






PRINT 
PRINT 
PRINT 
PRINT 
RETURN 

IFF X > CX T H E NM0*1 
IFPXCCXTHENMO*-1 

FQRCI=CXT0PXSTEPM0•POKECI, 86:P0KECI+<M0#-1>, 
POKEPX,87:GOTO5000 
IF P X < C X T H E N M 0 * 4 0 
IFF X >CXTHENMO*-40 

FORCI~CXT0PXSTEPM0:POKEC1,86:POKECI + <MO*-1>, 


?mn" 


32 : NEXT 


>:NEXT 
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758 P0KEPX,87■0OTO5000 
900 IFTR>5000THEN50G0 
910 IFN1”10THEN5000 

920 PR I NT " 71 " : Nl-Nl+l : PRINT" a^>!lfl**i*»LEVELS"; HI 
930 FORGO-1TO2300 : NEXT '■ RESTORE : GOTO 10 

1000 REM ***:****THEME SONG a##**#*:# 

1001 REM ***<SAILOR'3 HORNPIPE)*** 

1002 REM ***.*:**AS PLAVED BV******* 

1003 REM **THE ANCIENT MARINERS*** 

1004 REM **FIFE AND DRUM CORPS**** 

1010 POKES4£96,15: P0KE54277,67 '• P0KE54278,64 
1020 READL,H,L2 

1025 IFL«-1THENP0KE54276,0:RESTORE:RETURN 

1030 POKES4276,33 

1040 P0KE54273,H:P0KE54272,L2 

1050 FORT V s *1TOL■NEXT:P0KE54276,32 

1060 GOTO102G 

1100 DATA 62,51,97,62,43,127,124,51,97,124,25,177,124,25, 177 
1110 DATA62,38,126,62,34,75,62,32,94,62,38,126, 124,51,97 
1120 DATA62,51,97,62,64,188,62,57,172,62,51,97, 124,57, 172 
1138 DATA124,28,214,62,28,214,62,32,94,62,28,214, 62,25, 177 
1140 DATA62,24,63,62,23,214,124,38,126,124,38,126,62,43,52 
1150 DATA62,48,127,62,S1,97,62,48,127,62,43,52,62,38, 126 
1160 DATA62,43,52,62,38,126,62,34,75,62,32,94,62,34,75 
1170 DATA 62,32,94,62,23,214,62,25,177,62,28,214,62,25, 177 
1180 DATA 62,24,63,62,21,154,62,19,63,62,25,177,62,24,63 
1190 DATA 62,28,214,62,25,177,62,32,94,62,28,214,62,34,75 
1200 DATA 250,32,94,255,25,177,500,25,177,-1, -1,-1 
2000 SC-SC+1 : REM SCREEN SELECTION COMMITTEE 

2010 ON SC GOSUB 499,499,2199,2199,2299,2299,2399, 2499, 2399,2499 
201S IFSC-11THENGOTO5000 
2020 RETURN 


2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 
2219 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 
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vm 

Mtmm 
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iv 
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|p'7''77Tr' M 
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mm. 
wmu 


ymmump' 

i^ssrsi +mm 


mu 

& 


•rs^ii 


a m" 

mm n 

mu mumm" 

yffi**?**’*:*: M 

msssm." 

11 


2220 RETURN 
2229 PR I NT " ritMtfl' 1 
2299 PRINT"dTOl" 
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2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2309 
230.9 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 
2310 
2320 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 
2503 

2509 

2510 

2511 

2512 
£513 

2514 

2515 

2516 

2517 

2518 

2519 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 




mm 
mm 

be mmm 

amm 

■« 

am 

fl 

ammn* 

namz 

IB 

be ssm 

IBS 
i mvmm 
ammmmn* n 

amx ms 

atmmm*a\ 

amm 




mu 




rawhi rzt'f?- 

■CKmins 

btimi 


♦BESw" 





mmsssm" 

ns* it .. 


RETURN 
PRINT'TMWM 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

print" msmsm 

PRINT" .TO»mil 
PRINT" M 
PRINT" 

PRINT" BBSmil 

print" mm 

PRINT" 

print" mm 

PRINT 



PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

RETURN 
pr iNT "raw 
PRINT" 

PRINT" 

print" mmmam 

PRINT" 
print" mmmam 
PRINT" 

PRINT" gMRfell 
PRINT" 
print" mm 
print" mzmm 

PRINT" %% 

print" msmam 

PRINT" 3E2SSS25 

print" mmm 
PRINT" m 
PRINT" m 
PRINT" ssnfell 
PRINT" m 
PRINT" 8B+II 
PRINT" 


r** i atmmm i mmmzrmzmmmmm 




mms ® immmmmsm'' 
sawwB • ■ 
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5000 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 
5020 
5030 
5040 
5050 
5060 
5070 
5030 
5090 
5100 
5110 


PR I NT " ’' :GOSUB1000 


PRINT"S®888 






PRINT"® $ 

35 » 



38 ® 


PRINT"i*8« 


V.< : . 


® 3 

* 

PRINT"® 38 

m % 

}* 


38 

m 

PRINT"® m 

m m 

$ 



w>. 

PRINT"® 38 

® n 






!W " 

Vf> ^'' 


& m n 


pr i ht pr i nt " wmmmmm msm mm m mmm 


PRINT'PRINT 


IFN1*10THENPRINT" W*»»KING OF THE SEVEN SEASB" 

IFNI -9THENPR: I NT " 5*HIIF’R INCE OF PIRfiCV" 

IFN1 ~8THENPR I NT " BUkiPK ING OF SIX OF THE SEVEN SEAS" 
IFN1 “7THENPRI NT " lHiiHIASTER OF THE BRINV DEEP" 

IFNI=6THEHPRINT”NOT VERV RICH PIRATE" 


IFH1 *»5THENPR I NT " IRST MATE " 

I FN 1 *4THENPR I NT " ABIN BOV " 

IFNI <4THENPR I NT " ANDLUBBER" 

I FN 1«1THENPRI NT " ■fctiiiillOR A COAST GUARD SPV ! 
PRINT" WSMi’MilMW " 


LISTING 2 — PIRATE JOVSTICK CONTROL 

70 PZ^PEEK-T. 56320) : GOSUB400 : IFPZ-127THEN72 

71 PF*PZ 

72 IFPF*119THENPX-PX+1 

73 IFPF-123THENPX-PX-1 

74 IFPF-126THENPX-PX-40 

75 IFPF«123THENPX»PX+40 




16 . Take-Off 


This program is a model plane flight simulator. You have control over the 
throttle speed, as well as the wing’s flap angle. By adjusting these values in 
real-time, you are to successfully take off, make a short run, and land the 
plane. The Commodore 64’s internal clock is used to time the flight. A dif¬ 
ferent plane is used each time; a random number is used to set the plane’s 
lift coefficient. This determines the speed and flap angle necessary to cause 
the plane to take off. 

The controls for your “radio-controlled” plane are shown in figure 1. 


Htyire 1' 

flight Central 

&+m=thrvttle up 

throttle dW 
increase flap 

Gi) "decrease flap 

CD = decrease (la.p l a 
CD *increase (lap 1 * 
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PROGRAM 

Line 5 sets the background screen color to white. Line 7 sets the internal 
clock. Lines 10-49 take care of the sprites, determine the lift coefficient, 
and other sundry things. 

The subroutine beginning at line 5000 POKEs in a small machine level 
program; used here more as a time saving device, than anything else. The 
machine level program is used to transfer the frequency numbers to the 
SID chip. It does so faster than BASIC can, and therefore speeds up the 
execution of the program. 

The SYS9026 part of line 50 calls the machine program. Lines 50-91 in¬ 
put and decode the player’s key depressions. The flap angle is determined 
in line 93. Line 98 displays both flap angle and speed. The sprite’s Y posi¬ 
tion is determined by the formula in line 100. Lines 101-102 determine the 
pitch of the engine, based on the present speed of the plane, line 110 deter¬ 
mines the x position. The background sprite is updated in lines 130-140, 
and line 150 jumps back to the beginning of the loop. 


PROGRAM LISTING 


5 P0KE53281,1 

6 PR I NT" ISS^” ^S 1 

7 TI '£—■" 000000 " • PR I NT 11 I ME ";TI* 

10 V-33248 : POKEV+21 .• 3 : POKE2040, 150 : POKE2041,151 

11 XP-20 : VP-218 : BX-240 = POKEV+39,0 '• POKEV+40, 14 • CL-RND < 0 > * 10 : CL-1 NT < CL > /1000 

12 IFCL<»0THENU 

13 PRINT"SBSJINITIfiL LIFT COEFFICIENT CL 

14 0P«VP 

15 POKEV+29,3:POKEV+23,2 = POKEV+27,2 

20 FORP-0TO62STEP3 P0KE9664+P,0 ' P0KE9663+P, 255 ■ P0KE9666+P, 0 : NEXT 

30 FORP-0TO62 '• RERDQ • POKE9600+P, Q : NEXT 

40 POKEV, XP : P0KEV+1, VP '• POKEV+2, BX : POKEV+3, 200 

45 GOSUB5000 

50 SV39026:GETR$ 

55 PRINT M »IIS»MmME-- "JTI* 

60 IFflt-" H" THENSP-SP+3 
70 IFR$-"W"THENSP-SP-3 
75 IFSPC0THEN8P-0 

80 IFRS-"U"THENCL-CL+.001 •• IFNC* 1THENCL-CL-. 001 

81 I FR$= " II" THENCL-CL+. 005 : I FNC« 1THENCL-CL-. 005 

90 IFfl$*"D"THENCL-CL-.001 : IFNC® 1THENCL-CL+. 001 

91 IFRS-"M"THENCL-CL-.005 : IFNC-1THENCL-CL+.005 

93 Ffl=i'NT^CL*1000)-<10«CL> '• FR«INTCFR> 

94 IFFR<~45THENFR*=~45' NC-l 

95 IFFR945THENFR-45 ; NC-l 

96 IFSP>399THENSP-399 

97 PRINT"S®!»!>*»i»l 

98 PRINT"SBKn»W»*ePEED: " ;SP.: " F. R. : "Ffl.: " DEGREES" 

99 IF < FR>-45)OR<FR<45>THENNC-0 

100 VP=VP-< < CL#1.68#<SPT2>)X100> + 10 

101 SF=<SPT1.09 >+600 : HF-INT <3F/256) : LF=SF-(236#HF!> 

102 POKE9025, HF ' POKE9024,LF '• SVS9026 

104 IF <VP>205> RND<SP>160 >THENGOSUB6000 

105 IFVP<50THENVP«50 

106 IFVP>218THENVP-218 

107 IF<VP<90>RND<SP>100)THEN6100 

110 XP-XP-K .0032#SP)•IFXP>240THENXP-240 
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115 I FXP> 125THENPRI NT " LAND THE PLANE." 

lie IF(!XP>125)fiND<VP<150>THENPRINT ,, 3flKI«TO»»W!*DANGER#* LAND THE PLANE. 

117 IF<XP>190 jANDCVP>205)AND<SP<161>THENGOTO700 

120 POKEV,XP•POKEV+1,VP 

130 BX«BX-<SPX1.894)■IFBXC10THENBX-240 

140 POKEV+2, BX 

150 GOTO50 

700 PRINT M n«ttWD»MWBUCCESSFUL LANDING." 

710 POKE54296,0 END 

900 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
910 DATA 0,0,224,0,3,192,0,15,130,0,124,130 
920 DATA 0,3,234,0,8,254,0,11,254,64 
930 DATA 31,218,240,127,194,249,255,130 
940 DATA 255,255,192,255,195,64,254,1,192 
950 DATA 112,1,192,0,1,192 
5000 FORML-9026TO904S 

5010 READPD : POKEML,PD 

5011 NEXT 
5020 SI*=54272 

3030 POKESI+24,13:POKESI+5,80'POKESI+6,240 
5040 POKESI+1,18 : POKESI,1 : POKESI+4,33 
5060 RETURN 

5100 DATA 169,0,141,4,212,173,65,35,141,1,212,173 
5110 DATA 64,35,141,0,212, 169,33, 141,4,212,96 
6000 PRINT"™* AIRSPEED WAS TOO FAST FOR PROPER" 

6010 PRINT" TAKE-OFF/LANDING. PLANE DAMAGED." 

6020 GOTO6120 

6100 PRINT"™* SPEEDV ASCENT CAUSES VOU TO LOOP:" 

6110 PRINT" VOU HAVE LOST CONTROL OF VOUR PLANE." 

6120 P0KE53269,0:P0KE54296, 0 
6130 FORTT=1TO3600'NEXT:RUN 



17. Wildlife Warden 


You have been hired as the overall Manager of a wildlife sanctuary. The 
area (about 50 square miles) has been landscaped and is now ready to be 
populated. The area has been designed to accommodate the following 
species: bear, deer, raccoon, red fox, and rabbit. Additionally, toads will 
be needed as food for certain of the predators (they will also help to cut 
down the population of insects). 

The food chain that will occur is shown in figure 1. The problem you 
must solve is; how many animals of each species are needed to provide an 
ecologically balanced system? 

Fitiurc t~ f&oJi cJtcutt 



PLAYING 

The first step is to enter the initial numbers of each species. Then follow 
the prompt to cycle through each section. At the start of each new year, 
you have the option of opening a hunting season. You must enter either 
“C” (closed to hunters) or “O” (open season). If you elect to open hun¬ 
ting, you must then enter the number of hunters allowed in the park. 


PROGRAM HIGHLIGHTS 

Line 10 defines two functions which are to be used repeatedly in the pro¬ 
gram; function D is used in the overpopulated calculation; function R pro¬ 
vides the basis for deriving random numbers. Line 20 resets the month/ 
year counter and closes the hunting season. Line 25 sets up the initial 
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number of insects, fruit, and nuts available for consumption by the 
animals. 

Lines 30 to 90 input the initial number of each animal. Line 110 contains 
the month/year counter. This line also calls the subroutine to open or 
close the hunting season. Lines 120 to 180 are used to call various subrou¬ 
tines. The subroutines at 940 and 1000 are called once on each line. The re¬ 
maining subroutines (at 300, 390, 490, 570, 700, and 830) are identified by 
their subsequent text messages. 

The subroutine beginning on line 940 stores the animal totals in tem¬ 
porary variables T1 through T9. After this subroutine, the animal 
numbers will be altered by each statistic modifier (births, deaths, etc.) The 
variables T1-T9 are necessary to determine the numbers of each species 
lost due to the statistic subroutines. 

The subroutine at line 1000 calls two other routines. The animal 
numbers are prevented from becoming negative by the first subroutine 
(1140). The second, at 970, compares the “before” data (in T1 through 
T9) with the animal numbers left after statistical modification. The dif¬ 
ference between the two is displayed when this subroutine returns to line 
1005. 

After each of the statistical modification subroutines has been executed, 
the monthly totals are PRINTed. The initial monthly totals (held in 
B1-B9) are displayed, along with the end of month totals. After this, the 
cycle starts anew. 


PROGRAM LISTING 

5 P0KE33281,1 

10 DEF FND<DV)»DV/100:DEF FNR<R0>=INT<RND<0>#R0>+1 
20 M0«0 • VR®0 : H$="C" 

25 1*41000'-F»21000:N-40000 

30 PR I NT " n&KVPPttll NPUT INITIAL NUMBERS" 

40 INPUT" NUMBER OF BEARS "BR 
50 INPUT" NUMBER OF DEER "DR 
60 INPUT" NUMBER OF RACCOON ";RC 
70 INPUT" NUMBER OF RED FOX "RF 
90 INPUT" NUMBER OF RABBITS "RB 
90 INPUT" NUMBER OF TOADS ";TD 

110 M0=M0+1 : IFMO* 13THENM0* 1 '• VR-VR+1 '■ GOSUB1100 

111 PRINT’TXBW 1 TAB'S); "MONTH : " M0; " VEAR : " ; VR 

114 GOSUB1140 

115 G0SUB995 

120 GOSUB940 : GOSUB300 • PR I NT" 'mm" TAB' 12 > " BIRTHS '• " : GOSUB 1000 

130 I FH$* " 0 " THENGOSUB940 : GO SUBS 30 : PRINr'WWWT TAB' 12) ; "HUNTERS KILL ■ " ' GOSUB 1. GOG 
140 IFH$»"C"THENPRINT"HUNTING SEASON CLOSED" 

150 GOSUB940 : GOSUB390 : PRINT"*®®^' TAB(9); "NATURAL DEATHS • " : GOSUB 1000 
160 GOSUB940 ■ GOSUB700 : PR I NT " SOSDSW" TAB ' 9 ) " STAR VAT I ON : " : GOSUB 1000 

170 GOSUB940 : GOSUB570 : PRINT"SWMWI"; TAB'9); "OVERPOPULATION : " : GOSUB 1000 
180 GGSUB940 : GOSUB430 '■ PR I NT 11 SKWM" ; TAB < 9)" DEATH BV PREDATOR : " : GOSUB 1000 
185 GOSUB1140 

190 PR I NT" EtmWMONTH ■' S TOTALS" 

200 PRINT" ANIMAL STARTED ENDED" 

205 PRINT" TVPE WITH WITH" 

210 PR I NT " J3BEAR'3 = "E1TAB' 25 ) ; I NT' BR ) 

2 15 PR I NT " KDEER = " ; B2TAB < 25 ) I NT ' DR ) 
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220 PR I NT" HRACCOON : "E3TRE < 25 >I NT (RC) 

230 PR I NT ” BRED FOX : E4TRE < 25 > I NT < RF > 

240 PR I NT " 53RABB IT : 'MBS; TRE < 25 > I NT < RE > 

250 PR I NT " irrORDS = " E6TRE < 25 ) I NT CTD 

260 PR I NT " IINSECTS:: " ; E7; TRE < 25 ) ; I NT < I ) 

270 PR I NT " FRIJ IT: B8TRE < 25I NT C. F > 

230 PR I NT " NUTS '■ " : B3TRE < 25 > ; I NT < N > 

285 PRINT"Wi!>i»miT RNV KEV TO CONTINUE" 

290 GETZZ* : IFZZ*=""THEN290 

295 GOTO110 

300 REM BIRTH FIGURES 

3 10 IFM0-6THEN IFBR> 1 THENBR-BR+ < < BR/2) *FNR<2> ) 

320 IFMO-4THENIFBR>1THENDR-BR+<<DR/2)*FNR<2)) 

330 IF < MO-6 ’> OR < MO-3 > THEN I FR01. THENRC-RC+ < < RC/2 ) *FNR < 5 > > 

340 IF -r. MO-3 > OR < MO-10 ) THEN I FRF> 1THENRF-RF+ < < RF/2 > *FHR < 4 > > 

350 IF < C MO> 1 > RND < MCK11 > > RND < MO/2-1 NT < MO/2 > > THEN I FRE> 1THENRB-RE+ < C RE/2 > *FNR < 8 ) 
360 IF < MO-3 > OR < MO-6 > OR < MO-9 > OR < MO-11 > THEN I FTD> 1THEHTD-TD+ < < TD/2*FNR < 3 > > 

370 IF < M0>2 > RND < MCK 11 > THEN I -1+FNR < 6080 > : N-N+FNR < 4300 > 

390 IF MO>2> RND < MCK10>THENF-F+FNR<5500) 

385 RETURN 

330 REM NATURAL DERTH RRTES 
400 IFVR>7THENBR«BR-FNR<3) 

410 IFVR>6THENBR-DR~FNR<2 > 

420 IFVR>5THENRC«RC-FNR(6) 

430 IFVR>4THENRF=RF--FNR <. 4> '• RB-RB-FNR<15> 

440 IFVR>2THENTD*TD-FHR< 5> 

450 IF < MO-6>OR <MO-12>THENI-1-FNR<1OOO> +500 
460 IF r: M0>9 > THENN-N-FNR < 3500 > 

470 IF <M0>9>THENF-F-FNR< 4500> 

480 RETURN 

490 REM NATURAL PREDATOR — PREV COSTS 
500 IFDR>0THENDR-DR-<.0416*BR> 

510 I FN>0THENN-N~ < 25if.BR > 

515 IFF>GTHENF-F«<26*BR> 

520 IFN>0THENN-N~<27*DR> 

525 IFF>0THENF==F- <. 16*DR> 

530 IFTD>0THENTD-TD~ <2*RC ") 

535 IFI>0THENI-I-<26*RC> 

540 IFRC>0THENRC-RC~<6*RF > 

545 IFRB30THENRB-RB- <5*RF > 

550 IFN>0THENN-N-<11*RB> 

555 IFF>0THENF-F-<11*RB> 

560 IFI>0THENI — I — <12*TB > 

565 RETURN 

570 REM OVERPOPULATION EFFECTS 

590 OB-BR-120 ' OB-BR-158 : OC-RC-500 '• OF-RF-300: OX-RB-600 : OT-TB-1200 
600 IFOB>0THENBR-BR-<FNE<OB >*70> 

610 IFOD>0THENBR-BR-<FNE<OB >*90> 

620 IFOO0THENRC-RC-< FNB <OC ) * 130> 

630 IFOF>0THENRF-RF-<FNB <OF > *100> 

640 IF0X>0THENRB-RB-< FNB <OX>*110> 

658 IFOT30THENTB-TB-- <FNB < OT > * 170 > 

660 01 = 1-15080:IFOI>0THENI-1-<FND< 01)*120> 

670 OF-F-10000:IFOF>0THENF-F~(FND<OF>*120> 

680 OV-N-30000:IFOV>0THENN-N~CFND(OV > *120) 


690 RETURN 

700 REM STARVATION FACTORS 

710 IFDRC<.0416*BR> THENBR-BR-C.1*ER> 

720 IFN<<600*BR>THENBR-BR-<.1*BR> 

730 I FF< -r. 300*BP:>THENBR-BR- < . 1 *BR > 

740 IFN<<700*DR > THENBR-BR-<.1*BR) 

750 I FF< 200*DR> THENBR-BR-< . 1 *BR> 

760 IFTD<<200*RC>THENRC-RC-<.1*RC> 
770 IFI<<400*RC> THENRC-RC-<.1*RC) 

780 IFRC<(10*RF)THENRF-RF-C.1*RF> 

730 IFRE<<30*RF)THENRF-RF-<.1*RF> 

800 IFN<<500*RE>THENRE-RB”C.2*RE> 


8 1 0 IFFC( 50*RB ) THENRE-RB- < .1*RB > 
820 RETURN 

830 REM HUNTING SEASON IS OPEN 
835 IF < MO<2OR < M0>7) THENRETURN 
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840 IFER>0THENBR■ER~<H*FNR<2)) 

850 IFDR>0THEND R ® DR-<H*FNR(2)) 

860 IFF:C>8 T H E N R C ~ R C -H 'M FNR'• 4 ) ) 

870 IFRF>0THENRF=RF-<H % FHR<4)) 

880 IFRB>©THENRB ~ R B -(H*FNRC5)> 

890 IFTD>100THENTD®TD-<H#FNR<2>>'REM HUNTERS STEP ON TORTS 

900 IFI > 10000THENI ® I - (H#FNR<30) '• REM HUNTERS USE INSECT REPELLENT 

910 IFN>9000THENN « N - < H#FNR <. 30 ) ) : REM HUNTERS ERT NUTS 

920 I FF>7000THENF ss F- < H#FNR < 30 > ) '■ REM AND SOME FRUIT 

930 RETURN 

940 REM TEMPORRRV RNIMRL DATA 

950 T1=BR : T2*DR•T3*RC : T4=RF•T5=RB:T6®TD:T7*I:TS=F'T9«N 
960 RETURN 

970 Tl-BR-Tl:T2”DR-T2=T3*RC-T3 : T4*RF-T4•T5-RB-T3 
980 T6=TD-T6 : T7^I-T7 ■ T8®F-T3 '■ T9«N-T9 
990 RETURN 

993 REM SET UP MONTHLV TOTRLS 

996 B1 =T NT < EF: > '• B2* I NT < DR ) B3=-INT<RC> :B4®INT<RF) ' B3®INT<RB> 

997 B6-1 NT < TD > : B7* I NT < I ) ■ B8» I NT < F ) : B9® I NT C N > 

998 RETURN 

1000 GOSUB1140'GOSUB970 

1003 PRINT" 53BEARS '• IHBBini! "INTCT1 ) 

1010 PRINT” KDEER : !■■■■« "I NT <T2) 

1020 PRINT" SF.RCCOON: IIIBBI " : INT£T3> 

1030 PRINT" SREB FOX : IIHHII " INTCT4) 

1040 PRINT" SSRABBIT : IIHIBII ";INT<T5> 

1050 PRINT" irrORDS: !■■■«■! " INT<T6> 

1055 PRINT"WHIT RNV KEV TO CONTINUE" 

1060 GETZZf- • I FZZt~ " " THEN 1060 
1070 ZZ $~"" 

1080 RETURN 

1100 INPUT" CO]PEN OR CC3LQSE HUNTING SEASON";H* 

1110 IFH$="C"THENRETURN 

1120 IFH^=" 0" THEN INPUT" HOW MANY HUNTERS THIS YEAR" H 

1130 RETURN 

1140 IFBR<0THENBR-0 

1143 BR~INT <ER) 

1130 IFDR<0THENDR®0 
1135 DR*INT<DR) 

1160 IFRC<0THENRC~0 
1165 RC*INT<RC) 

1170 IFRF<0THENRF»0 
1173 RF»INT<RF> 

1180 IFRB<0THENRB=0 
1183 RE*INT<RE) 

1190 IFTD<0THENTD*0 
1195 TD=INT<TD) 

1200 IFIC0THENI“FNR<100) +2 
1205 1*1NT <I> 

1210 IFFC0THENF~FNR<100)+2 
1215 F-INTCF) 

1220 IFN<0THENN*FNR<100)+2 
1225 N®INT <N) 

1230 RETURN 









18. One-Man Voyage 


Your orders arrive via special courier: your skills as a pilot are needed to 
save a planet from certain doom. You have orders to transport an ultra- 
sophisticated computer to a distant world. This computer will aid in the 
preservation of the world’s population. As it stands, thermonuclear war is 
imminent, unless the computer can be delivered in time. 

Since time is of the essence, you are being asked to use the newest and 
fastest transport vehicle known. As a matter of fact, the ship is so new that 
construction has just been completed. All the defense units: photon 
missiles, lasers, shields, sensors, and computers have been installed. The 
only thing missing is the final programming; the programming which tells 
you which button makes what work. 

As you ascend the lift to the command module, one of the scientists ex¬ 
plains; “You have two modes; Auto defense and manual. In the manual 
mode, use the 0 to 9 keys. In the Auto-defense mode, you have to use the 
‘P’ or ‘L’ keys for Photons or Lasers. Ship movement is done with the two 
keys labeled ‘CRSR’ and the one marked ‘SHIFT’... ’’ 

Further explanations are cut off as the hatchway closes, cutting off 
communications. As you strap in, the onboard systems begin to hum. The 
computer only has one more bit of information for you; from then on, 
you’re on your own! 

PLAYING AND HELPFUL HINTS 

The commands for the ETRAV’s computer, in manual mode, are scram¬ 
bled each time you play the game. By using the numeric keys (0-9), you can 
“call” the following sections: 

A. Navigation Section 1: This section displays your present speed in Relative 
Fuel Units (an imaginary quantity between 0 and 10). You may change your 
speed by inputting a new value, or you may remain at the displayed speed by 
simply pressing the RETURN key. 

B. Navigation section 2: This section displays the numerical coordinates 
which represent your ship’s position in space. Since you are travelling in 
space, an imaginary three dimensional grid is used to reference your posi¬ 
tion. The NORTH coordinate represents your X axis, the EAST coordinate 
represents your Y axis, and the SECTOR number refers to the Z axis. See 
the figure below. 

C. Status Report: This section displays the fuel level as well as the percen¬ 
tage of power available to the laser, photon, and shield devices. 

D. Sensor Scan: This section shows computerized images of stars, planets, 
and unknown objects in the sector in which you are presently travelling. 
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E. Guidance Computer: By entering a “C” for CONTINUE, your on¬ 
board computer will automatically correct your course for you. When you 
reach sector ten, you must be at the pre-programmed coordinates in order 
to land. 

F. Photon weapon: Fires one photon weapon in manual mode. 

G. Laser: Fires one laser shot in the manual mode. 

H. Defense Mode: Detects any enemies in your sector and displays fuel level 
as well as weapon and shield charges. 

I. Landing Sequence: This section will allow you to land on the planet at the 
pre-programmed destination. Any attempt to land while not at the proper 
location will be cancelled. 

Note: At all times, you are viewing a computer representation of events out¬ 
side the ETRAV. 

• Remember: use the 0-9 (numerical) keys in the manual mode. 

• Use the “P” and “L” keys, along with the cursor and shifted cursor 
keys in the Auto-defense mode. 

• It is helpful to slow down after a battle, both to re-charge your weapons 
and shields, and to re-calculate your heading. 

• If sensors show no enemies in the first fractions of a sector, chances are 
that you can warp through at maximum speed at ten R.F.U. (relative 
fuel units). 

• Once you identify the Photon and Laser keys in the manual mode, 
avoid using them, as this drains their power unnecessarily. 

• Always use the course correction computer after a battle. 


PROGRAM HIGHLIGHTS 

A definitive description of the program would tend to give away the 
method for consistently winning the game. Therefore, I will point out the 
more interesting aspects of the program. 

Lines 11000 to 11950 generate the sprite for the enemy craft. Line 11005 
is a loop to skip over the first 45 datum from the data lines. These skipped 
lines are used to produce the theme song. Therefore, the sprite data is ac¬ 
tually generated from the data in lines 11900 to 11950. Lines 1000-2030 are 
two interwoven subroutines which a) provide the theme music and b) print 
the title of the program, one character at a time, in step with the music. 
Line 2000 controls the printing of the title. Lines 2040-2080 are also two 
nested subroutines, providing the sound and graphics for the ship’s lift-off 
sequence. 
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PROGRAM LISTING 


1 Poke53291,11 : 9osubl1000 

4 P ok *54276,0:P ok*54283, 0 : d imcm$<11),sa$ <280 > 

5 ki* s " , a Experimental Transport Vehicle " : Printchrf < 14) 

8 deffnr<r2 > = int <rnd<0)#r2) +1 

10 P r i nt" #" : 9osu.b 1004 : P r i nt '• P r i nt 

20 input "SI Please enter your name"; na$ • ti#**"000000" 

25 Pokes+4,0 : Pokes+18,0:Print"#" 

30 Print"3 V E T R R V 

31 Print" V Experimental TRflnsPort Vehicle " 

32 forte-1to 10 

33 Print" VS) IS" 

34 next 

35 Print" 1_ 

36 Pr int "3ZnBH»SSI<Jelcome aboard. Captain "; na$ 

37 Pr int"*SiSil4e're sorry, but there wasn't" 

33 Print "IPSHt irne to Program the commands." : Print : Print 

39 Print"IS»»»Fress the 'S' key, followed " 

40 inPut"H*»»fcy the RETURN key "Jcf 

41 ifleft*<c$, 1 > as "s"then45 

42 Print" #" '• 9 oto30 

45 Pr int"9EOTlSPSFrePare for countdown : " 

50 forzz-lOtoOsteP-l '• f orzx=l to350 : next 

55 print" liii zz 

56 next 

57 fortc*ltol0 

53 Print" !3Ti S Id" 

59 next 

60 Print" a " 

70 9osub2040 : Print"WWiSDSiMiiFwitchin9 to manual mode" : 9osu.b2090 

75 fortc=2tol1 

76 cm*<tc>=str t <int<rnd<0>*10> +1) 

77 f ortx-ltotc : if cm* <tx-l )*cm$<tc)then76 

78 nexttx 

79 nexttc : Print"#" : fortx«lto 10 : cm*<tx)=crn*< tx+1) : next 

30 rem ****£et up variables 

31 fx*fnr<10):fy«fnr<10)*fd-10 

32 hx-0 ; hy*0 : hd=l•f=500 : Pc=100 : lc=100 : sc*100 : sP=0 
83 9osub5000 : sc-sc+l : ifscMOCthensc-lCC 

34 Print "SEMSSSCommand _" 

35 9etc* '• i f c*= " " then9osub5000 '■ 9oto35 
86 Pr int"SE»»S»**»i»»i»SI" ; c* 

37 if <asc<c*> <48 > or<asc<c*>>57>then34 

33 co-va 1 < cm* (va 1 < ct) +1) > : p r i nt" #" 

99 onco9otol00,140,190,205,290,350,400,500,545,205 
90 9oto84 

100 Print"SGCTiHPISHNavi9ation, Section 1" 

110 90SUb10000 

1 20 P r- int : p r i nt" 'SFresent sP eed '• " sP " R. f. u" 

125 input"ANEW SPEED " , sP 
130 9oto33 

140 Pr int "!3EBHiiiRWavi9at ion. Section 2'" 

150 Sosub10000 

160 P r i nt '■ P r i nt" “SPresent head i n9 : " 

165 Print" " ;hxJ" East, by " hy " North. Sector " J hd 

170 Print" NEW HERDING : " 

175 input" Enter East, North coordinates"; hx., hy 
130 9oto33 

190 Pr int "EmMUSETRRV Status Re-Port:" 

195 9osub10000 

200 Print "Fuel level: "; f; " units. 

201 P r i nt" Photon ch9 : " P c; " 2" 

202 Print "Laser ch9 '• " ; 1c; " >i" 

203 Print"Shield ch9 : ";sc;" %" 

204 9oto83 

205 Pr int "SEBUiiiETRRV Sensor Scan" 

206 9osu.b 10000 : f 9=0 

210 ty =25* i nt <hd> : P r i nt " WSHSector ' " ; hd 
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215 Pr infabEfel" 

216 Pr irit'JPfciiiiiiiiiiiiESrS mmmmmumm ST 

220 for 1 y -1to25steP5 

230 print"tPM>k**iBMMir :■ 

235 Print "STS S3 "; 

240 forlx*lto5 

250 P r i ntsat-< 1 x+ty +1 y): i f <, 3 .$< 1 x+ty +1 y > ~" ME" the nf' 9+1 
2 6 0 Vi 6' t : P r i n t'' S3' 1 

270 next ■ Print" liUiMiliiftkktCT ■'■'■■■ S3" 

200 P r i nt" E~ " ; f 9 '• 9oto83 
290 9o=.u.b5290 : 9oto83 
350 9osub5350 : 9oto83 

400 Privit 11 SETEFiiPiF^TSSGuidavice cornPuter" 

410 90SU.b 10000 

415 P r i nt" HIIIF i via 1 Best i viat i on Pro 9 ram mod '■ " 

420 Print "MW 1 ; fx; " East, by " ; f y ; " North; Sector ";fd 
425 P r i nt" ttMWSOMPUTED OFFSET '• " 


430 P r i nt" llll" ; fx-hx; " " ; f y ~hy ; " 

435 1 viP u t" C R 3eturn to Comrn. 7 .nd or C C 3 ont i nue " ; 9c$ 

448 if9cT-"r"then83 

445 i f9cfO " c" thenPrint"*** INPIJT ERROR**if " : 9oto470 

446 iff x<hxt he nsx~-1 

447 iffy<hythensy~~1 
440 iffy>hythensy=1 

449 i f f x > h x the ns x ■ 1 

450 fortx~hxtofx+<- 1 *sx>step sx 

451 forty*hytofy + <-l#a.y >stePsy 

455 Pr int" *EEfcEEfifcE*»MCorrect i on : " 

460 Print"Hiira" ;tx;" East, by ";ty;" North" 

465 viext '• viext '• hx=tx ' hy = ty 
470 9oto33 

500 P r i nt " SBEMkilfl" : i f f 9 as 0thenP r i nt " M" ; 

501 i f f 9>0thev.P r i nt"M"; 

505 Print" Enterin9 defense mode 

506 Print "**Sensor«. detect no enemies " 


510 

P rint" 

3 Shie1ds on ; 

" ; sc ;" y." 

515 

Print" 

Laser chr9.: ' 

' ; 1 c ;" x " 

520 

Print" 

Photon chr9; ' 

' ;pc;" X" 

525 

p rint" 

Fuel lev-' el; ' 

';f;" units 

530 

iff9>0then9osub5060 


540 

9oto83 



545 

9osub6060: 

: 9oto83 



1000 re rn "Game Theme" 

1001 re rn "Orion's Wake" 

1002 re rn "Music < C > Copyright 1932" 

1003 rern "by Bill L. Behrendt" 

1004 s=54272 '• rnc~0 

1010 P okes+24,175•P ok es+5, 15 = Pok es+6,31 
1020 Pokes+23,113 : Pokes+21,7:Pokes+19,11 : Pok es+20,15 
1030 readnl, vh, v 1 : ifn 1 = -11h e nmc~rnc+l : restore : 9oto 1030 
1035 P ok es+4,33 '• pokes+13, 1 : P okes+1, vh '• Pokes, v 1 
1040 form 1*1 ton 1 /6 : P ok es+22, P eek < s+2'8 > • next '• P ok es+4,32 : P *; 


1041 9osub2000 
1045 ifr’,c<3thenl030 
1050 restore : return 

1100 data 305,6,108,270,19,63,62,21,154,62,24,63,62,25, 1 “ 
1110 data 270,28,214,62,24,63,62,25,177,124,28,214,62,25, 
1120 data 62,24,63,175,3, 155, 175, 10,205,450,9,159,-1,-1,- 
2000 cP —cP +1 P t- rnid* Ckt, 1, cP > 

2010 Print"aBnftBBIsBECfi'BI" 

2020 PrintP$; 

2030 return 

2040 5*54272 '• rern *#blast off!** 

;2041 P ok es+24, 175 : P ok es+5, 15 '■ P ok es+6,31 

2042 P ok es+23, 113: p ok. es + 21,7 : Pokes + 19,255 : P ok es+20,223 

2043 P ok es+12,255:Pok es+13, 255 

2045 Pokes+4,17:Pokes+11,129 : Pokes+13,1 

2046 fortc»lto255:9osub2060 

2047 P ok es+1, tc '• P ok.es, 55 : Pok es+8, tc/1.5 '■ P ok. es+7,55 

2048 P ok es+22,P eek<s+28> : next * 

2049 P ok es+4,16:P ok es+11,128:Pokes+18,0 


.: fd-hd 


:>k es+18,0 


177 

1 
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2050 return 

2060 if tc< 100thenPrint" ^Ebfc i iiiBEREiB I EfiB B f E EBKBKfcfclii ira 3Er.9ines ignited" 
2070 iftc> 150thenPr-int 11 3; T i:EEUl i lifc E LBre EE E E gbIfCEfcCt >ing Lift off.. 

2073 i f tc>231 the rip r i nt" ^EBL^EEE^CEfctfcfcfctfcfcEEIiUiPPra 

20G0 return 

2090 forte-lto2S0 : rern sat <. 280 > 

2100 ty=fnr(13) 

2101 i f tx«= 1 thensat < tc > “ " 3* " : rent star 

2102 i ftx=2thensat < tc > = " SO ” : rem P 1 a net 

2103 i f tx~3thensat <. tc) = "-I"? " : rem u.nk nown 

2104 i ftx=4thensat <tc) = "i?£" '■ rem enemy 
2103 i ftx>4thensat < tc > *" SI S3" : rem sP ace 
2106 next’• Print"31" : 9oto 10000 

3000 hd=hd+<.003*sP)•f*f-<.03#tP> 

3001 hd=1000#hd : hd«int(hd >'hd*hd/1000 

3002 f«1000*f:f»int<f> : f—f/1000 

3003 iff'<1 thenPrint"3OTWBBBB*ii>ISorry , you're out of fuel" 1 end 
5004 iff<100thenPrint M mnnii«»#*Low Fuel***3" 

3010 ifsP>10thenPrint" Speed f < " sP " > too hi9h. 3**Ad,lustin9**ST : sP = 10 
3013 ifhx<0thenhx«0 

3016 ifhu<0thenhy«0 

3017 ifhx>1Gthenhx-10 
3013 ifha>10thenhy«10 

3020 Pc=Pc+l:ifPc>100thenPc~100 

3025 ifPc<30thenPf*l 

3030 lc*lc+l•iflc>100thenlc*100 

3033 iflc<30thenlf*l 

5036 iflc>S0thenlf=0 

3037 ifP c>S0thenPf*0 

3040 ifhd>10thenhd=10 

3041 if <hd= 10)and<hx=f x>and<hy«fy ) thenPr int"^CCCCCCPK'3 Dest ination S" 

3042 ty«23*int<hd> 

5043 for1y = 1to23steP 3 : forlx*lto3 

3044 ifsat< lx+ly+ty ) = "thenkk~l :f9*f9+l 

3043 next : next 

3047 ifkk»lthenPrint"WHBB>iKI4«Ruto Defense Mode*SS" ■ fortt=ltol000 • next 
5048 ifkk-lthen9osub6160 '• kk-0 : 9osub3060 
3049 ifk k*0thenf9=0 
5030 return 

3060 Print "SOTl -WARNING: ENEMV ATTACKING-" : ht=0 

3061 hy-fnr(10) ; hx a fnr^10) 

5062 Poke33243,44'Poke33249,44 
3063 9osub12000 

5063 f ortx= 1 to 10 : forty ~ 1 to 10 '• P oke33281,2 '• next : Poke33281.. 11 : next : p r i nt" 
3070 e4= i nt < rnd <. 0 > *20 > +100 '• p ok ©33269, 1 : e3*40 

5075 e3-©3-fnr <5)+3 

5076 e4=e4-fnr<3>+3 

3077 ife3>200thene3~200 

3078 i fe4>200thene4= i 200 
5079 i fe4<23thene4--23 

3080 if©3<23then©3=23 

3081 Pok e33248,©4 : Poke33249,©3 

5083 ifht“1thenf9~f9-1’iff9<1then3170 

5086 ifht-lthenht 85 © : 9oto3070 

5087 Print"SEECTiUBtenemies left "; f9 

5090 9etPIt-ifP1t=""then9osub613Q : 9oto3073 

5091 9osub12000 

3100 ifP1t="P"then9osub3290 : 9oto5075 
5110 ifPIt*"1"then9osub5350•9oto3073 
3125 i f P 1 $= " II" thene5~e3+f nr < 20 > -hd/3 
5130 i fP 1 t« " SI" thene4-e4-fnr < 20 ) -hd/3 
5135 i fP 1" II" thene4=e4+fnr < 20) -hd/3 
5140 ifP1t="W"thene 3=e 3 - fnr<20)-hd/3 
5130 if©4<23then©4«23 
5155 i f©3<23then©3»23 
5160 if©4>200thene4“200 
5165 if©3>200then©3=200 
5167 9oto3080 

3170 Print"SJcEBlPiREnemies left " f'9 ; Pok©33269..0 : Poke-33281.. 1 
3173 9osub6000:Pok ©33281,11 return 
3239 stop 
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5290 s-54272:Pokes+24,175■P oke s+5,15 'Pokes+6,17 

5291 P c=P c-20 : i f p f = 1 the tiP r i nt" SCISECii VklSnBP hoton re char 9 i ti 9 SJ" : return 

5292 i f P c< 10 the Tip f= 1 

5295 p ok es+23, 113 : Pok es+21, 7 : P ok es+19,21 ■ P ok es+20, 193 

5300 P ok es+12,31 : p okes+13, 241 

5305 P ok es+4,21:p Q kes+11,129'Pok es+13,1 

5310 1P ~ 1993 ■■ rP=2013 

5315 forte*10to1step-1 

5320 1P -1P -39 '• rp »rP -41 

5325 P ok €• 1P , 95 : P ok erP , 105 : P ok e 1. P +39,32 : P ok erP +41,32 
5330 Pokes+1,tc#2 : Pokes,160 ; Pokes+8,tc#4 : P ok es+7,60 

5335 Poke•=.+22,Peek<s+28> : ti ext 

5336 PokelP,42 : PokerP,42 : Poke1P,32:PokerP,32 

5340 P okes+4,20 '• P okes+11, 123 ' P okes +13, 0 

5341 if(P eck <53279 >>0 > a nd<e5> 154> the'nht* 1 
5345 return 

5350 s*54272 : P okes+24 , 175 ’ P okes+5 , 15 : Po k es+6, 17 

5351 1 c~- 1 c-20 1 f 1 f ■* 1 the yip r i Tit" SE1SnCTSl>*i*i*f3PSBl aser rechar9 i ri9 ZV' ' return 

5352 if1c<10then1f*1 

5355 P ok es+23, 113'■Pok es+21,7:Pokes +19,21-Pokes+20,193 

5360 Pokes+12,31■Pokes+13, 241 

5365 Pok es+4,129 Pokes+11,21 : Pok es+13,1 

5370 1p* 1993:rP*2013 

5375 forte*1©to1steP-1 

5380 1P *1P-39 : rp ~rP -41 

5385 P ok e-1 p , 94 : P ok erP , 94 

5390 P ok es+1, tc*5.7 : p ok es, 60 '■ P ok es+3, tc*9.45 : Pokes+7, 10 

5395 P o k e s+2 2, P e e k < s+2 8 : n e x. t 

5396 P ok e 1P , 42 : P ok er P , 42 '• P ok e 1P , 32 : P ok erP , 32 : P r i nt" S3" 

5397 P ok es+4,123'■P ok es+11,20'■Pokes+18,0 
5393 i f <. P e e k < 53279 > > 0 > a n d -■ e 5 > 15 4 > the n h t * 1 
5399 return 

6000 Pt=23#int<hcD 
6010 forly * 1to25steP 5 
6020 for1X s *1to5 

6030 i f sat < 1 x+P t+1 y > *" «E" t hens at < 1 x+P t +1 y > * "SB 51" 

6040 next : next 
6050 return 

6060 i f h d < > 101 ki e n P r i n t'' SSHSOi P I3N o t a t P r o 9 r a m m e d d e s t i n a 11 o n '■ '' 

6061 ifhd<>101henPrint"*• ra_andin9 se4uence cancelled" : return 

6062 s*54272 : P ok.es+24, 175 : P ok es+5, 15 : P ok es+6,31 

6063 p ok es+23, 113 : P ok es+21,7 : p ok es+19,255 '• P ok es+20,223 

6064 P ok es+12,255:P okes+13,255 

6065 Pok es+4,33 ; P okes+11,129 : Pok es+18,1 

6066 fortc*255tol0steP-l:9osub6080 

6067 P okes+1,tc'Pok es,55 : P okes+8, tc/1.5:Pok es+7,55 

6068 p okes+22, Peek s+23> : next 

6069 Pokes+4,0:pok es+11,0'pokes+13,0 

6070 9osuh 1000 ; P r i nt" SftlstPPPI^T'ou ■' ve saved the Planet!" 

6075 P ok es+4,0 • P ok es+11, Q : P ok es+18,0 '• P ok es+24,0 : end 

6080 iftc<100thenPrint"SinSBB , EECTira SEn9ines off ” 

6090 iftc>120thenPrint"SEBEEISinniiMfB Entering atmosphere" 

6095 i f tc>251 the Tip r i nt" SbeVEEiEftHftra 
6100 return 

6150 ti e « f n r <. 10 j : i f n e < 7th e n r e t u r ti 

6160 Pririt"5BBPiinMEnerna has f ired. . . " : s*54272 

6161 P okes+4,0 : Pok es+11,0 : Pokes+18,0 

6165 P ok es+24, 175 : P ok es+8, 5 ■' P ok es+7, 125 
6170 ts»fnr <.2’> ■ ifts=lthents«129 
6175 if't •=. * 21 h e n t s * 8 3 

6180 Pokes+23,195:Pokes+21,7:Pokes+19,19 : Pokes+20,199 
6190 P ok. es+12,31 : P ok es+13,241 ; p ok es+4,21 - P ok es+11, ts ■ P ok es+13, 1 
6200 fortc=250to1step-25 

6210 P ok es+1, tc+1 : P ok es, 100 ' P ok es+8, C tc+1) S2 '■ P ok es+7,50 
6220 Pokes+22,Peek<s+23> 

6225 nexttc : Pokes+11,21 

6230 P ok es+5, 15 = Pok es+6,17:Pokes+4, 129:Pok es+19,21 : Pokes+20,193 

6231 P ok es+18, 1 '• P ok es+23, 113 • P ok es+24, 175 : P ok es+21,7 

6232 '■ P ok es+19,21 '• P ok es+20,193 

6233 fortz*255to1steP-25 

6234 Pokes+1,4 '-Pokes, 23 
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6233 P ok es+22, p eek < 2 .+23 > 

6236 Poke33231,l 

6237 Poke33281.. 11 

6233 nexttz '• P ok es+4.. 128 : P ok es +18.. 0 ; P okes+11 .> 0 

6239 Pr int"3SB*»>WJ_ 

6240 sc=sc-3'■ Print"EBEEBBMilShieId ch9 : lllir sc J " II K" 

6230 ifsc<3then7000 

6260 return 

7000 s=34272 : r em ex.P 1.os i O'n 

7010 Pokes+24, 173 : Pokes+3.. 13 : Pokes+6, 31 

7020 Pokes+23,113■Pokes+21,7 : P okes+19,21 : Pok es+20,207 

7030 P ok es+12,31■Pokes+13,235 : P okes+4,21'P okes+11,129 : Pok es+18,1 

7040 forte® 13tolstep--. 23 

7030 P ok. e33281, tc : Pokes+1, f nr <150) - p okes, f nr < 130) 

7060 P ok ss+3, f nr < 130 ) • P ok os+7, P 00 k < s+23 ) 

7070 Pokes+22,peek<s+23) 

7080 next 

7090 P ok es+4,20 ' P ok es+11,128 '• P ok es+10,0 
7100 P r i Tit" S3 1 ' : e nd 

10000 Print"»i»MMITIME RCCESSED: 11 left$<ti$, 2) i " ' ” ■ 

10010 P r i ntrn i dt < t i £, 3,2) " : "r i 9ht$ < t i $, 2 > '• return 

11000 v*33240 : Pok*2040,200 

11003 f ortt* 1 to45 '• readd : next 

11010 fortc®0to62 : readd : P oke12800+tc,d : next 

11013 restore 

11020 return 

11900 data0,0,0,0,0,0,0,0,0,16 

11910 datal6,16,36,16,36,111,233,236,36,124 

11920 data36,16,124,16,0,234, 0 ,0,234 ,0 

11930 datal,233,0,3,253,128,7,233,192,15 

11940 data253,224,127,233,232,127,233,232,97, 255 

11930 datal2,96,124,12,96,16,12,0,0,0,0,0,0 

12000 s9«fnr<400)■pok e1424+s9,46 

12010 s9 ss fnr<400) : Pokel424+s9,32 

12015 s9«fnr<400):P oke1424+s9,32 

12020 s9=fnr<400):P oke1424+s9,32 

12023 s9«fnr<400):Poke1424+s9,32 

12030 s9®fnr < 400 ) : p ok e 1424+s9,32 

12033 s9*fnr<400):Poke1424+*9,32 

12040 s3=fnr<480)■Pok e1424+s9,32 

12043 s3=fnr<400 >:poke1424+s9,32 

12030 2.9®f nr < 400 ) : P ok e 1424+s9,32 

12033 s9«fnr<400)•P oke1424+s9,32 

12100 return 
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MODIFICATIONS 

To make the game more difficult, change line 5000 thus: 

5000 hd - hdt + (.005*sp): f = f- (.25*sp) 
This will cause the ETRAV to use fuel at a faster rate. 



19. Mutation Maker 


A mutation is, generally, a change, or deviation, in cellular structure or 
composition from one generation to the next. This change is sometimes 
drastic, sometimes subtle. In any case, the mutation can be either benefi¬ 
cial or disastrous. If the mutation causes the offspring to have an advan¬ 
tage over non-mutated species, the mutated variety will survive in places 
where the non-mutant would die out. 

This program began as a simulation of a mutation’s effect on the laws 
of natural selection (survival of the fittest). By the addition of user- 
selected cell groupings, however, it becomes playable as a game. The goal 
of the game is to come up with a group of cells which can, via mutation, 
survive the onslaught of various environmental changes. 


USE 

“@” KEY 

“B” WITH COMMODORE KEY 
“ + ” WITH COMMODORE KEY 
“W” WITH SHIFT KEY 
“Q” WITH SHIFT KEY 
“E” WITH COMMODORE KEY 
“ £ ” WITH SHIFT KEY 

After the cells have been input, the computer will begin displaying each 
eon, and its type of environment. The program will continue until all cells 
have disappeared. To stop the program prematurely, use the RUN/STOP 
key. 


CELL TYPE 

@ 



PROGRAM 

Line 5 seeds the random number generator. After changing the 
background to white, the program calls the subroutine beginning at line 
1000, to display the cell selection menu. 

After returning to line 10, where the cell input counter is reset to zero, 
the inputting of cells begins. A quick programming trick was used to con¬ 
vert ASCII values to screen display codes. After the cell is input to a string, 
it is briefly PRINTed in the upper left of the screen. This corresponds to 
screen memory location 1024. This location is then PEEKed, to obtain the 
proper screen display code. Lines 40-45 accomplish this. The subroutine 
beginning at line 1500 is used to determine the correct color for each cell. 
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Following the input of the ten cells, lines 55-70 clear the top 19 lines of 
the screen memory. Line 80 is the beginning of the main program section; 
ET holds a random number, which will determine the Eon Type. Lines 
81-89 decode and display the present eon environment. 

The heart of the program is in the loop between lines 90 and 380. This 
area of the program compares the environment types with each of the cell 
types and determines the proper outcome for the cell. The cell will either 
reproduce (lines 400-405), die (lines 500-506), mutate (lines 600-601 and 
700-707), or will remain dormant (in which case, the computer will fall 
through to line 380 for the next iteration of the loop. 

After all ten cells have been taken care of, the program calls the subrou¬ 
tine at lines 800-840. This subroutine counts the remaining cells. If no cells 
are left, the program halts. 

If the program is to continue, it will return to line 390, from which it 
goes on the line 80 to determine the next EON. 


PROGRAM LISTING 


5 W*RND<-TI):G9=INT<RND<0)#10)+10 
10 P0KE53281,1 : GQSUB1000 ■’ V®0 
20 PRINT"lCELL INPUT" 

30 FORX®1870TO1888STEP2 : V*V+1 

40 PR I NT " 

45 POKEX,PEEK<1024):GOSUB1500 

46 POKEX-40,PEEK<1024):QOSUB1S00 
50 NEXTX:PRINT 

55 FORK-1TO19 
60 PRINT" 

70 NEXT 

80 ET*INT<RND<0)*7)+1 :E0*E0+1 '• PR I NT "EON" ; ED 
01 IFET-1THENE$»"!HDESERT" 

82 IFET*2THENE$-"HRRIN FOREST" 

83 IFET«3THENE*«"3ICE ROE" 

84 IFET=4THENE$="!*8CID RAIN" 

85 I FET*5THENE$* " NWOLCRN IC " 

86 IFET*6THENE$*"lkSERS0NRL" 

87 I FET*7THENE$= " BSUNLESS " 

88 PR I NT "MCI!! 

83 PR I NT " SJBUfl"; TAB (15) E$ 

90 F0RX=1870TO1833STEP2 

91 G9*INTCRND<0>#10)+10 
95 CT*PEEK<X) 

100 IF<ET* 1 >RNDC CT*87)THENGOSUB400 ■ GOTO330 
110 IF <ET*1>RND<CT*113)THENGOSUB600 : GOTO380 
120 IF<ET*1>RND<<CT*0)OR<:CT-81>>THEN380 
130 IFET* 1THENGOSUB500 

140 IF < ET®2 ) RND < CT*127) THENGOSUB400 = GOTO380 

150 IF < ET=2)RND <CT*0)THENGOSUB600 : GOTO380 

160 IF <ET*2)RND<<CT*105)OR <CT*81)OR < CT*102))THEN380 

170 IFET*2THENGOSUB500 

180 IFET*3)RND<CT* 102)THENGOSUB400 : GOTO380 

190 IF<ET*3)RNDCCT*81 )THENGOSUB600 '• GOTO390 

200 IF<ET*3 ) RND< <. CT* 127)OR <. CT* 105)OR < CT* 113))THEN380 

210 IFET=3THENGOSUB500 

220 IF < ET*4)RND<CT*105)THENGOSUB400:GOTO380 
230 IF<ET*4)RND<CT=127)THENGOSUB600 : GOTO380 
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240 IF < ET=4)AND<<CT®0> DR <CT*87 >)THEN3S0 
250 IFET~4THENGOSUB500 

260 IF < ET=5>RND <CT=0>THENGGSUB400■GOTO380 
270 IF<ET«S>ANDCCT®105>THENGQSUB600 '■ GOTO380 
280 IF <ET=5 > RND<CT=*87 "> THEN3S0 
290 IFET«15THENGOSUB500 

300 IF<ET®6>AND<CT®81>THENGQSUB400:GOTO380 
310 IF<ET=6)RND<CT®102>THENGOSUB600 : GOTO380 
320 IF < ET®6 > RND< < CT® 127)OR •' CT® 113) > THEN380 
330 IFET=6THENGO3UB500 

340 IFCET=7>RND<CT*113>THENGOSUB40G : GOTO380 
350 IF<ET®7)RND<CT®87)THENGOSUB600 : GOTO380 
360 IFCET=7> RND< CT® 102>THEN380 
370 IFET-7THENGOSUE500 
300 NEXT;GOSUB8O0 

385 F0R2Q=1T0999 ■ NEXT ■ REM THIS "WRIT-' LOOP MRV BE RLTERED TG TASTE 
390 GOTO30 

400 RX«X 

401 AN®AX-40:IFAX<1224THEN405 

402 IFPEEK<RX >O32THEN4G1 

403 POKERX..PEEK/ X > 

404 POKERX+54272 >PEEK< X+54272 > 

405 RETURN 

500 IFI NT < RND < 0 ) *09 ) +1OTHENRETURN 

501 BX=X '• DOT0503 

502 BX-BX-40 IFBX< 1224THENBX®EX : GOTO504 

503 I FF'EEK < BX-48 > O32THEN502 

504 POKEBX, 32 ’■ POK.EBX+54272, 1 

505 RETURN 

600 IFG9>*15THENRETURN 

601 GGSUB700 

607 CX®X+40 

608 CX=CX~40:IFCX<1224THENCX-CX:GGTO630 

609 POKECX, PV • POKECX+54272, CV 

610 IFPEEK < CX-40 O32THEN608 
620 CX=CX+40 : IFCXOX+S0THEN620 
630 RETURN 

700 IFCT®0THENPV®127'CV®5 

701 IFCT®127THENPV*105=CV»4 

702 IFCT=102THENPV®31 ■CV®3 

703 IFCT=87THENPV=113-CV*0 

704 IFCT®81THEHPV®102:CV®6 
785 IFCT*113THENPV»S7:CV®7 

706 IFCT®105THENPV®0•CV=2 

707 RETURN 

800 FGRX®1870TO1838STEP2 

310 IFPEEK<X)®32THENEF®EF+1 

820 NEXT:F0R2Z*1TG2500:NEXT 

830 IFEF<10THENEF«0 : RETURN 

840 IFEF«10THENPRINT n WMRLL CELLS DERD"'END 

1000 PR I NT " TlWOSli SI CELLS I" 

1005 PRINT"* i'3Qa iSTda \ZSZm IfilOM ilk** ISS-HI \ WM I " 

1010 PRINT" DESERT : SI = IX IX 1*1®! T IX I" 

1020 PR I NT " RRIN FOREST : IT I* I® IX I® IX 1=1" 

1030 PR I NT " ICE RGE ■ SI X I« I * IX I T I — I = I" 

1040 PRINT" RCIB RR IN '• I® I T IX I® IX IX I* I " 

1050 PR I NT " VOL CRN IC : Si * IX IX I ® IX IX I T I" 

1060 PRINT" SEASONAL• IXI®IT!X1*1=1X I" 

107G PR I NT " SUNLESS : 3 X IX I = I T IX I * IX I" 

1080 PR I NT : PR I NT ■ PR INTTRB < 14 > ; " ■ KEV •' 

1090 PR I NTTRB C 5 >; " 3*5 OR * • CELL MULTIPLIES" 

1100 PRINTTRB<5 )* " 3N5 OR ®• CELL IS DORMANT" 

1110 PRINTTRB<35J" 0X9 OR X• CELL DIES" 

1120 PR I NTTRB 1 '3 > ; " 5JT5 OR T- CELL MUTATES" 

1136 PRINT"WWMk 0 1 2 3 4 5 6 7 8 9TTTT 

1140 RETURN 

1500 I FAT >' V ) ® " @ " THEMC=2 
1510 IF AT <V> ®"VTHENC=5 
1520 I FAT ( V "> ® " i$" THENC^S 
1530 IF A T/ V!) ® "0"THENC=7 
1540 I FATV > ®" • " THENC®3 
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50 IFR*CV> = "J- M THENC=0 
60 IFfi$<V:>«"r"THENi>4 
70 P0KEX+34272,C 
73 P0KEX+54232,C 
30 RETURN 


ftfuixtioH: Csi/ &*r fye 

Tit cW* f> frr rc^succ 

e*ck *une. Tfo cfert +1*^110*1^ 
Wl*t e'fccf 6 m Ty^ <ye>n 
flit Ceil fy/**- 


Type 

ails uAicl\ die 

6s 1/5 fc/kfct 

Cells uk/ck Mkkdt 

Cxiif ui*»<k 

doOMCUAf" 

desert 

\mr 

O 

-i_ 

€• 

Ru* 

0^ 

•b 

& 

a #r 

2» Aje 

(B o 

0 

0 

■b^r 

AaJ 


r 

% 

^ 0 

]/e>lcAf\ic 

M«x 

@ 

r 

0 

£&&#&[ 

@ o r 

• 

0 


Sunless 

<g%» r 

JL 

0 

0 








20. Demon’s Lair 


Your muscles are stretched to the breaking point. A wall is behind you; 
another wall is to your right. To your left is the long, cramped corridor 
through which you’ve just come. In front of you is the only way left to go. 

As you peer at the door for some type of handle, your head begins to 
spin. Suddenly, lighter than air, you feel your body passing through the 
door. Involuntarily, you raise your sword, and make ready with your 
knife. After a few frantic moments, you find the door behind you, and a 
fierce goblin in front of you. Fangs dripping, foul breath steaming, the 
goblin advances upon you. You begin swinging your sword and flailing 
with the knife. Seconds later, the dead goblin is lying prone over a pile of 
gold. You roughly kick aside the body and scoop the coins into your gir¬ 
dle. Peering around the room, you realize that this is the final unmapped 
room. Having completed this level, you touch the magic medallion, and 
are whisked through time and space to land on the next plane of existence. 
Your journey has barely begun. 

This program, as you can see from the listing, is quite long. However, 
I’m sure you’ll find it worth the effort to type in. With this program, you 
can explore an endless variety of dungeons. (Actually, there are only 
1,235,520 possible combinations.) 

One of the interesting points of the program is that the dungeon is 
revealed as you go through it. The walls, treasures, etc. will not be visible 
until you walk within lantern range of them. They will remain lit, once 
you’ve discovered them. 

Another point of interest is that the program was written in such a man¬ 
ner as to retain the secrets and surprises you’ll find along the way. Even the 
method by which the dungeon is designed is in coded form. This way, you 
can type in the program, without really knowing what the final outcome 
will be. This introduces an element of discovery and surprise, not usualy 
found in printed programs, but usually only possible in ready to go games 
found on cartridge, tape and disk. 


PLAYING 

After RUNning, the theme music will begin, and the logo will appear. To 
start the game, hold down the SPACE bar until the logo disappears. At 
this point, the computer will begin constructing the dungeon. This process 
may take as long as 45 seconds (remember, there are over a million possi¬ 
ble dungeons!). To alert you that the dungeon is almost complete, the 
computer will generate random tone sequences for about ten seconds 
before displaying your initial position. 
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Space-open area 
or obstacle 

V 'treasure 
i8b~H1oH$ter 



~Door 

~Floyer 


Figure 1 shows the various symbols used to represent the dungeon. 
When your initial position is shown, you’ll notice a white band near the 
bottom of the screen. This is given as a reference point, and shows the 
bottom-most line of the dungeon. The solid white circle is your present 
position. 

As you move around in the dungeon, the eight blocks surrounding the 
player marker are shown. If one of the symbols is within this area, it will be 
displayed; open areas remain black (see figure 2). 


figure /L- 



The eijhh blocks around 
"the 'jilap.rare shou>n. 
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ENCOUNTERS 

Encounters with the various symbols are handled differently. If you see a 
treasure, it may be guarded by a hidden monster. The only way to find out 
is to move over the treasure symbol. Your take will be shown, if you 
recover the treasure. If the treasure is guarded, your player marker will 
become invisible for a short time, and the monster type will be displayed. 

To engage in battle with the monsters, you have two control keys. Use 
the “K” key to stab with your knife, the “S” key to swing your sword. 
Each monster is weaker against one of these weapons. As the battle is in 
progress, the player marker will show which weapon is being used. At the 
top of the screen will be two numbers. The MONSTER number will 
decrease with every hit. When you bring the Monster’s number down to 
zero, the monster is dead. Meanwhile, the monster is attacking you, and if 
your number falls below one, you will “die.” The trick, during battles, is 
to determine which weapon is most effective and to use that weapon 
against the enemy. 

When encountering doors, you will occasionally come up to a locked 
door, through which you can not pass. Treat it as befits a warrior. 

Walls, generally, cannot be passed through. However, certain of the 
monsters have special magical powers which can pull you through solid 
objects. 

One word of advice: don’t always believe what you see! 


SECRET HINTS 

1: Look closely at dirty walls. 

2: Good things come in small packages. 

3: Look for the Greek headdress. 

4: Look for the King’s hat. 

5: The good effects from one dungeon do not stay with you when you 
move to the next level. 


FINAL WORDS 

To move around the dungeon, use these keys: 

“J”—move right 

“H”—move left 

“U”—move up the screen 

“N”—move down the screen 

“R”—“Get me out of here!” (moves you to the next dungeon.) 
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PROGRAM LISTING 


1 P0KE53281,0:U5-RND <-TI) : PRINT"3":GOSUB1300 

2 DEFFNR<R0)-INT<RND<0)#R0)+1 '• CA=S4272 : SF-0 : PS*50 '■ RP*0 

3 m<. 1 ) ** "CNROOTNEILLEBKOSG" : M$ < 2 ) *■"LNLEOBRETKTRRNRS" : ZF«ZF+TF 

4 M$ < 3 ) ■ " FPLEORWI VPMMMflUVM " : TF®0 '• PR I NT "H" 

3 DA*1147:PR*1510 : PRINTCHR*<144) 

6 PRINT"M a S" 

7 GOSUB 1000 ■■ R.P*0 : X*0 : X1 *0 : V-0 : MZ*0 

10 F0RX*1T06 

11 F*FNR(13) 

12 ONFGOSUB5000,5005,3010,5015,5020,3025, 5030,5033, 5040,5045,5050,3053,5060 
15 FORV s3 1T03 : DA*DA+40 

20 FORX1-1TO30:GOSUB1340 

21 POKEX1+DA+CR,0 

22 K«RSCaiIDt<n$<V),Xl,l))-35 

23 IFK-1THENPN-160 

24 IFK-0THENPN«32 
23 IFK*2THENPN*77 

26 IFK-3THENPN-13 

27 IFK-4THENPN-90 

28 IFK«3THENPN-96:SF-SF+1 : IFSF>7THENSF»3:PN-32:GOTO30 

29 I FK*6THENPN*224 : SF es SF+1 '• IFSF>5THENSF*3 '• PN=32 : GOTO30 

30 POKEX1+DR,PN 

40 NEXTX1,V,X:POKE33280,FNRX15)•POKEV+21,0 

45 PR I NT" S «" 

50 POKE PR, 81 *■ POKEPR+Cfl, 1 : POKEPA+40+CA, 1 • POKEPA+41+CA, 1 '• P0KEPA+39+CA, 1 

55 POKEPR-40+CR, 1 = POKEPA+CA-41,1 '■ POKEPA+CR-39, 1 

56 POKEPR+Cfl-1, 1 ’■ POKEPA+Cfl+l, 1 

57 GOSUB720 

60 GETAf : IFA$*""THEN60 
65 POKEPR,32•IFTF>300THEN3 
70 IFA£ s ="U"THENPA st PA-40 : GOSUB150 
80 IFfl$="N”THENPA=PA+40:GOSUB130 
85 IFA$="R"THEN3 
90 IFfl$= "J"THENPfl»Pfl+l ••GOSUB 150 
93 IFfl$*"H"THENPfl*Pfl-l : GOSUB 130 
100 GOTO30 

150 IFPEEK<PR+1)*13THENPfl=Pfl+1 : POKEPR+CR,5 
155 IFPEEKCPR+41)-13THENPfl*Pfl+41:POKEPR+CR,3 
160 I FPEEK C PR-1) ■= 13THENPR*PR-1 = POKEPR+CR, 5 
165 IFPEEKCPR-41)»13THENPR»Pfl-41:POKEPR+CR,5 
170 I FPEEK <. PR+40)* 13THENPfl S5 PA+40 • POKEPR+CR, 5 
173 IFPEEK <PR+39)*13THENPR-PR+39 
180 I FPEEK. ( PR-40 > = 13THENPA*PA~40 
183 I FPEEK <. PR-39 ) * 13THENPR"PR-39 
190 I FPEEK -r. PR ) -32THENRETURN 

200 IF<A$*"U" )AND<PEEK < PR)* 160>THENPR*PR+40 : RETURN 
210 IF <A$="N" )RND<PEEK<PR)*160)THENPR ! *Pfl-40 '• RETURN 
215 IFA$*"R"THEN3 

220 IF<fl$*"J")RNIKPEEK<PR)«160)THENPR*PR-1 RETURN 
230 IF < f\t~ " H " ) AND < PEEK < PR ) * 160 ) THENPR®PR+1 : RETURN 
240 SD*FNR<2) 

250 I FPEEK <. PR > 077THEH310 
260 I FSB®1THENRETURN 

270 IF < fl$*" U ” ) AND<PEEK < PR) *77) THENPA«PA+40 : RETURN 
280 IF(.’R$="N">RND<PEEK<Pfl)*77)THENPR*PR-40•RETURN 
290 IF<Ri*"J")ANDCPEEK<PR)*77)THENPA-PA-1=RETURN 
300 IF<AS*"H" ) AND<PEEK<PR)*77>THENPR*PR+1 : RETURN 
310 1 FPEEK < PR ) O90THEN340 
313 PRINT" mm 
316 TF*TF+FNR <. 33 ) 

320 PRINT" MflflTOTflL TREASURE' "; TF"COINS" 

330 RETURN 

340 IFPEEK <PR)013THEN640 
350 Q*FNRC3):OP*FNR<3) 

360 IFOO1THEN390 

370 IFOP*1THENMH*17 : ML*7 

375 IF0P*2THENMH=16:riL*2 
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390 IF0P»3THENMH*3■ML=1 
390 IFOO2THEN410 
395 I FOP-1THENMH* 16 : ML**-3 
400 IF0P SS 2THEMMH* 15 ■ ML-11 
405 IF0P a 3THENMH*9 ' ML**1 
410 IFOO3THEW440 
420 IF0P«1THENMH*17:ML«9 
425 IF0P-2THENMH*1 6■ ML=4 
430 IF0P®3THENMH-7'ML=1 
440 DM$»" " 

445 FORMOMHTOMLSTEP-2 
450 BM#=DM#+M ID# ( M* (O),MC, 1> 

460 NEXT 

465 PRINT"W»HiiW 

470 PRINT "MM ariONSTER: " J DM# 

430 LP*=FNR ( 10+O+RF 1 > 

490 FORTO1TO500 '• NEXT 
500 US~FNR(2+RP> 

510 FM~FNR(2+RP> 

530 IFLP<”0THENLP=0:GOTO620 

531 POKEPA+CA, 1 ■ IFPS>0THEN539 

535 IFPS<=0THENPS-0-PRINT M n«i!l«i!li!li!l^ VOU HAVE FAILED VOUR MISSION!" 

536 PR I NT" TOTAL TREASURE THIS GAME'• " ; ZF : PRINT : PR I NT" PL AVER STATUS'- " DL# 

538 STOP 

539 PRINT"4 

540 PR I NT" MMsCREATURE ' 1111"; LP; " PLAVER 111111"; PS 

550 GETC# : FORTO 1 TO (RP+1 >*50 : NEXT : IFC#«" "THEN590 

560 IFC$~"S"THENLP-LP“FM : POKEPA.. 19 
570 IFC$«"K"THENLP*LP-WS:POKEPA,11 
580 GOTO530 

590 PS-PS--2 • POKER A+CA, 2 : PS-PS+ ( I NT ( R.P/2 > ) 

600 GOT0580 

620 PR I NT " MMsCREATURE : liil" ;LP;" PLAVER IIIMU" ; PS 

630 FORTO 1TO2500 : NEXT ■ PRINT : PRINT '• PR I NT "M" '• RETURN 
640 IFPEEK (PA> -96THENS9-FNR < 2 "> ' GOTO650 

645 IFPEEK (PA> *224THENS9-FNR<2 > +2:GOTO650 

646 RETURN 

650 SP# a > = " AB0BUXFTMFVSNLE " 

655 SP#< 2!> = "BCAPLSVMFQTOTCHEO " 

660 SP# < 3 ) = ” ABASBGSFBKJLUX " 

665 SP#(4) = "BBCHUBILPLKJTBLB" 

670 T1 =LEN < SP* ( S3 > > - ( ASC ( MI D* ( SP* ( S3 > , 3, 1 > > -64 > 

675 T2-ASC<MID#<SP*(S3 >,2,1>)-64 
6S0 F0R.S5-T 1T04STEP-T2 

685 PT#~PT#+CHR# < ( ASC ( MI DC < SP# ( S3 > , 85, 1 > > -64 > - < ASC (MID# ( SP# ( S9 > , 1, 1 > > -64 > +64 > 

630 NEXT 
691 PRINT"sfcM 

695 PRINT" sMWVOU HAVE FOUND THE "JPT*;" OF ";DL# 

700 RP-RP+1 :2L»ZL+<LEN<PT#>>'■ IF2L>*210THENPRINT ,, nWWVOU^VE SAVED THE KINGDOM! " = EN 
D 

710 RETURN 

720 LL=PEEK(PA+1 > • L9-1 '• GOSUB810 
730 LL*PEEKCPA-1) :L9=-1 -GOSIJB810 
740 LL*PEEK<PA+40> : L9=40:GOSUB310 
750 LL c =PEEK( PA-40 > : L9=-40 : GOSUBS10 
760 LL=*PEEK<PA~41 ') = L9—41 ^GOSUBSl© 

770 LL»PEEK(PA+41>:L9«41-GOSUBSIO 
780 LL-F’EEK( F’A-33) : L9=»-39 : G0SIJB810 
790 LL e =PEEK(PA+39> = L9=39 : GOSUB810 
800 RETURN 

810 IFLL-160THENL8=15 
320 IFLL«77THENL8*12 
830 IFLL=13THENL8-LL 
340 IFLL=90THENL8=10 
850 P0KEPA+L9+CA,L8 
860 RETURN 
900 PRINT"":STOP 

1000 V*53248:POKEV+21,3:POKEV+39,1'POKEV+40, 1 
1005 RESTORE 

1010 POKE2040, 175 '■ POKE2041,176:L0»L0+1 : PRIHT"MRW»U*_EVEL '• " ; L0 
1015 IFL0>0THENDL$-"SILVER" 
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1816 

1017 

1018 
1819 
1020 
1030 
1040 
1050 
1060 
1065 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 
12'44 

1245 

1246 
1300 
1305 
1310 
1320 
1330 
1340 
1358 
1360 
1378 
1388 
1410 
1428 

1425 

1426 

1427 

1428 

1429 

1430 
1435 
1448 
1458 
1460 
1470 
I486 

1485 

1486 

1487 

1488 
1490 


IFL0>2THENBL$»"GOLD” 

IFL0>4THENDL*»"POWER" 

I FL0>6THEHDL$= !l HERLING " 

IFL0>3THENDL$-"MRJIK" 

POKEV, 122 ' POKEV+1,115'- POKEV+2, 170 ■ POKEV+3, 115 
POKEV+23,3 = POKEV+29,3 
FORTC*0TO62 ’• RERDD • POKETC+11200, D : NEXT 
FORTO0TO62 : RERDD : POKETC+11264, D • NEXT 
GETBGf : S9= s FNR< 15) : POKEV+40,S9 '• POKEV+39,39 
FORTC-1TO100 ; NEXT•GOSUB1460 : GETBG* 

IFBG$=""THEN1060 
POKEV+21,0■RETURN 

DRTR 240,30,198,72,32, 170,68,64,146 

DRTR 66,248,162,60,69,130,72,32,130 

DRTR 240,30,130,0,0,0,0, 32, 24,0,32,36 

DRTR 0,32,34,0,32,62,0,62,34 

DRTR 0,0,0,56,94,243,68,210,148 

DRTR 186,82,144,162,94,241,186,66,146 

DRTR 68,68,148,56,88,247 

DRTR 24,133,143,36,133, 144,66, 196,160 

DRTR 130,165,24,63,148,6,40,140,1 

DRTR 16,140,62,0,0,0,62,60,0 

DRTR 8,34,0,8,60,0,8,40,0 

DRTR 62,38,0,0,0,0,30,62,120 

DRTR 145,0,4,145,0,4,21,32, 120 

DRTR 21,32,64,21,16,64, 149, 14,64 

DRTR 0,0,0,0,97,51,100,20,177,25,0,0 

DRTR 0,0,0,0,97,51,100,20,177,25,0,0 

DRTR 0,0,0,0,97,51,100,20,177,25,0,0 

DRTR 0,0,0,0,198,45, 100,20, 177,25,200,40 

DRTR 0,0,0,0,126,38,70,15,227,22,0,0 

DRTR 0,0,0,0,126,38,70,15,227,22,0,0 

DRTR 0,0,0,0,126,38,70,15,227,22,0,0 

DRTR 0,0,0,0,75,34,70,15,227,22,141,30 

DRTR 0,0,0,0,75,34,100,20,56,27,0,0 

DRTR 0,0,0,0,75,34,100,20,56,27,0,0 

DRTR 0,0,0,0,75,34,100,20,56,27,0,0 

DRTR 0,0,0,0,126,38,100,20,56,27,75,34 

DRTR 63,19,177,25,94,32,63, 19,177,25,94,32 

DRTR 63,19,177,25,94,32,63,19,177,25,94,32 

DRTR 63,19,177,25,94,32,63,19,177,25,94,32 

DRTR 63,19,177,25,94,32,63,19,177,25,94,32 

80=54272'POKESD+24,79:POKESD+5,31-POKESD+6,251 

DIMMf<3),D$<3> 

P0KE3D+12,31 : POKESD+13,251 

FOKESD+23, 199 : POKESD+19,31 • F'OKESD+20,251 

RETURN 

MZ-MZ+1 I FMZ<500THENRETURN 
IFK-0THENUZ-33 : UX.«33 : WV*33 
IFK* 1THENWZ-33■WX*21•WV-129 
IFK*2THENl'JZ=21 : WX-129 • WV-33 
IFK*3THENWZ-17 : UX=»129 ■ WV®21 
IFK>3THENWZ»21-UX=21 : UV=21 
POKESD+5, WZ : POKESD+11,14X : POKESD+13, WV 
POKESD+1, FNR <. 120 > 

POKESD,FNR(120) 

POKESD+8,FNR(120) 

POKESD+7,FNR<120) 

POKESD+15, FNR's 120) 

FOKESD+14, FNR <. 120) 

FOKESD+22,FNR<120) 

POKESD+5,0:POKESD+11,0:POKESD+18,0 
RETURN 

SD~54272 : RESTORE '■ F0R.TO1T0126 ’ RERDD : NEXT 

F0RTC-1T028 

RERDD2,D1,D4,D3,D6, D5 

FOKESD+1,D1 : POKESD,D2:POKESD+8,D3 : POKESD+7,D4 

POKESD+15,D5:POKESD+14, D6 

POKESD+4,33 : POKESD+11,33 '• POKESD+1S, 33 

POKESD+22,234 

FORNL”1TO150'NEXT 
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1 497 POKESH+4,32•POKES!r11,32:P0KE3B+18,32 
1303 NEXT 

1503 FQRNL~1TD208'NEXT 

1510 POKESD+4,0:POKESD+11,0■POKESH+13, 0 
1320 RETURN 

3000 n-t >r. 1 > = " *##*##**#* tmty.tttv.t * **rXY.XXY.Xt" 

5001 D* < =•- ,l " 

5002 Bt k 3 > *" *##**■*******tt ■' &####*##* 111 

5003 RETURN 
5003 

3086 Ht < 2) *" X ##*###*##*##### / &####&##&#***" 

5000 RETURN 

5010 Bt< 1 > - " *#####** ' Kg#&•' #*#####**######*" 

5011 D* < 2>*" *###########& ■'****####*### 'V.XX" 
501 2 Bt ( 3 > - 11 tYY.fi, ■' ######*# ■' #*##*#*■##*###*** ” 
5013 RETURN 

5015 D* \ 1 >»" X ##•-###x******### y ##&**#&##&**" 

5016 Ii* ( 2 > * " *&### < *##*##*#** " £#####**###** " 

5017 D**3>="*#### 

3013 RETURN 

5020 Bt( 1 > = 

5021 

5022 n* <: 3 > * - *##& ■" m>: ■' ******k###*#####**** n 

5023 RETURN 

5025 D*< 1>»"*##* ’^t^X^Xm&^Y.^X^Y m ^Y.^X u 

5026 

5027 D*(3>~"" 
5023 RETURN 

5030 Ii* < 1 )s"*##*######*##*##**^****X#***** M 

5031 H* < 2 ) = " *#### •' ,5i###*##tt#X##/;#ttXtt##*****" 

5032 11* <3>“"*##tt####*********i*************" 

5033 RETURN 

5033 H*<1)="*#tttttttt#tt#######tt##tt###*v****** M 

5036 Ii*<2)»"*####•-&#**&#&#&:*'#'#■'#*'&*****” 

5037 I*< 3 > = "*#######** * X * * X * X * * X t-Y * XX * * * **" 
5033 RETURN 

5040 D*<1 >*"*###***X**Xtt####•'#'###**####**" 

5041 Bt < 2 > * 11 *# <##&#&**&#############******" 

5042 Ii*<3)-"*#1t#tt*****#######.&•'#######****" 

5043 RETURN 

5045 n*f.n*"**#tt##*--:**x#****■-*•'***###X•'&**” 

5046 Ii*2>*”***)*'*&#*###**##*:•-:****#******" 

5047 II*<3 )**" **#######*##***##& •' #**####**•**" 
5043 RETURN 

5050 H*< 1 >^ ,, *##*:^*f###tt'' <***&####&'##"•:****" 
5651 D*<2>="*#####*###**##**########*##***" 

5052 n*<3>« n ***;•:***##*#######&## ' *#*'***** ” 

5053 RETURN 

5055 H* < 1 ::^"*vv****^ ' ' ' <****########***** 

5056 H* C. 2> «"*#<##' X#*) ###&*##*#&' *#*##***" 

5057 Bt <3) *" **?i/S***##*#tt#########*####****" 

5058 RETURN 

5060 Bt< 1 *•####**'####**##*#***#*#****** M 

3061 n* < 2 > *"*##*;^x#****##**##*#***#*##*** M 

5062 rl*'::3) = ,, **•###**#tt*•####*###*##*####*■f*•* ,, 

5063 RETURN 
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DESCRIPTION OF CONTROL CODES IN QUOTE MODE 

—UPPER CASE 


CURSOR CONTROLS: 

"M" — CURSOR DOWN 
"HI" — CURSOR RIGHT 
"H" — CURSOR UP 
" 11 " — CURSOR LEFT 

"Cl" — CLR/HOME CCLEAR SCREEN & HOME CURSOR> 
"isl" — HOME CURSOR <SCREEN IS NOT CLEARED> 
FUNCTION KEYS'- 

"Ml" — F 1 
"SB" — F 2 

"U" _ p 3 

11 U" — F 4 
"18" F 5 
"a" •— f s 
II" — F 7 
F 8 
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COLOR COMMANDS : 

— BLOCK 
"s|" — WHITE 
"Ml" RED 
"k." — CVflN 
"■I" — PURPLE 
"El" GREEN 
"3" — BLUE 
"mi" VELLOU 
"53" — ORANGE 
"IS" —BROWN 
"8" — LIGHT RED 
" 50 " — DARK GREV 
"33" — MEDIUM GREV 
"II" — LIGHT GREEN 
"3" — LIGHT BLUE 
"H" — LIGHT GREV 
"S" — REVERSE ON 
" W" — REVERSE OFF 
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DESCRIPTION OF CONTROL CODES IN QUOTE MODE 
— LOWER CASE 


Curs 

••or controls : 


"51" 

cursor down 


"HI" 

cursor r i 9ht 


"M" 

— cursor uP 


"II" 

— cursor left 


"33" 

— c l r/home (. c 1 oar •screen 

& home cur so 

"SI" 

— home cursor <screen is 

not cleared' 1 

F ij. t'i c t. i o Ti k e y s ’• 


" si" 

— fl 


"II" 

f2 


"g" 

— f 3 


"HI" 

— f 4 


" w 

1 

(A 


"SI" 

..... fS 


"SI" 

— f 7 



-- fa 
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Color commands 1 

" sfl" — black 
"SI" white 
"raj" — red 
"SS" — cyan 
" { M " — P urp l e 
"18" — 9reen 
"3" ~ blue 
— yellow 
" «fl" — oran9e 
"IJ" — brown 
"iW" — li9ht red 
it 5 |" — dark 9rey 
"ijjl" — medium 9rey 
"fll" — li9ht 9reen 
"«l" — l i9ht blue 
"5!" — li9ht 9rey 
'"8" — reverse on 
" sj" — reverse off 



NOTES 



NOTES 





PERSONAL COMPUTERS 


The era of low-cost, worthwhile home computing has arrivedl The 20 
original programs in USING THE COMMODORE 64 IN THE HOME 
■ "will bring the excitement and utility of the computer to all areas of 
the home. The programs in this book—both useful and enter¬ 
taining—will 

automate checkbook keeping 
make sense out of getting and paying loans 
track the family’s nutrition 
make math, geography, and English fun 
let you be a wildlife warden 
track pirates and arsonists 
fly a plane 
invade a demon’s lair 
conduct a computer orchestra 
and much, much more! 

These programs will astonish you with the sight and sound capabil¬ 
ities of the Commodore 64. And all the programs in USING THE 
COMMODORE 64 IN THE HOME are designed to be entered into the 
computer directly through the keyboard, without any additional tape 
or disk equipment. They’re easy to run, foolproof, useful, and fun. 
There’s no better way to get the most from the Commodore 64 
computer. 
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